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le 1 hebdomadaire des programmes informatiques 



DES PROGRAMMES POUR VOTRE 

ORDINATEUR ^ APPLE ll et ll e . CASIO FX 702-P. 
COMMODORE 64 ET VIC 20. GOUPIL .HEWLETT PACKARD 
HP41etHP75.ORIC1.SHARPPC1211,PC1251,PC1500,MZ80. 
SINCLAIR ZX 81 et SPECTRUM. TANDY TRS 80. TEXAS 
TI-99/4A. THOMSON T07. 



10 000 francs de 



DEUX SUPER CONCOURS 

prix au meilleur programme CHAQUE MOIS. 1 VOYAGE en CALIFORNIE 
pour le meilleur logiciel CHAQUE TRIMESTRE. 



A vote ! 



Tout au long des quatre pre- 
miers numeros d'HEBDOGICIEL 
vous avez, nous lesperons. 
apprecie les programmes pu- 
blics pour voire ordinateur II va 
falloir maintenant choisir celui 
que vous avez prefere. Les 
auteurs des logiciels comptent 
sur vous el attendent febrile- 
ment voire decision : 10000 
francs et un voyage en Califor- 
nie sont en jeu. sans compter les 
prix offerts par TEXAS, la 
REGLE a CALCUL et DURIEZ! 
Vous savez que vous seul pou- 
vez decider des gagnants : avec 
HEBDOGICIEL pas de jury ni de 
decision fantaistste de le redac- 
tion Nous comptons sur vous 
pour envoyer massivement vos 
bulletins de vote, n'oubliez pas 
que le jour oil ce sera votre tour 
d'etre public, vous aurez besoin 
que Ton vote pour vous! Et. en 
plus. I'hippocampe ne vous 
oubliera pas : nous tirerons 
10 bulletins de vote au sort et 
HIPPOREBUS : trouvez I'expressioi 
(Solution page centrale) 



leurs expediteurs recevront une 
calculatrice solaire CASIO En 
comptant bien, cela (era 32 prix : 
une cheque de 10 000 francs, 
10 calculatrices solaires CASIO, 
un module TEXAS. 18 livres 
offerts par la REGLE a CALCUL 
et une option pour le voyage en 
Californie et sur la BROTHER 
offerte par DURIEZ. 
Vous Irouverez la marche a 
suivre pour voter en page cen- 
trale. ■ 



Menu 



Cette semaine les jeux sont a 
1'honneur. a part lediteur de 
texte pour TRS 80 d'Emmanuel 
FLESSELLES et le programme 
graphique de Bngitte Le BARH 
sur MZ80, tous les autres logi- 
ciels sont ludiques 
Tout d'abord des jeux de televi- 
sion avec "Le compte est bon". 
HP75 de Marc MAIZIER et 'Le 
mot le plus long" de Denis 
BONOMO ou votre ZX81 peut 
non seulement jouer a ce 
qui se cache dans la B D. de I'hippocampe 



celebre jeu mais, e"n plus, 
apprendre des nouveaux mots a 
chaque partie. Pour jouer com- 
pletemen! a I'illustrissime emis- 
sion d'Armand Jammot, il vous 
faudra acheter les deux ordina- 
teurs ! Les jeux d'argent ne sont 
pas oublies : TR1LOTO de Pierre 
GARRE sur HP41 et TIERCE 
pour COMMODORE 64 par Fre- 
deric MIRAN, La guerre sur terre, 
sur mer el dans lespace avec 
TANK de Francois EDEL1N 
(PC 1500). TORPILLE de Pierre 
VIOLENT (TI99). SOUS-MARIN 
de Didier CAPDEVIELLE 
(VIC 20) et METEORE de Rene 
NICOUD (TO 7). Des jeux de 
societe: CASSE-TETE pour 
GOUPIL de Philippe CARON. 
COCHON QUI RIT de Jean- 
Pierre OLIVIER (APPLE). ALLU- 
METTES pour SPECTRUM. 
SOLITAIRE GEANT de J.-P. 
GRANGER sur TI99et CERISES 
de J.-L. MESPLE pour PC1211. 
Unmechant jeu de la vent e pour 
PC 1251 par J-F. CHAPIN et un 
superbejeu d'aventure: LAVAL- 
LEE MAUDITE pour FX 702-P 
par Jean-Yves BISCHOFF 
A vos claviers! ■ 

Decompose en trols syllabes dans les 



Edito 



Ca commence a vertir. toul est 
presque parlait. presque plus de 
Mastermind, plus du tout de 
pendu. nous avons presque ter- 
mine la serie des Memory, vous 
commencez a envoyer des pro- 
grammes dignes du nom de 
"Logiciel", Je le savais bien que 
les Francais n'etaieni pas plus 
betes que lesAmencainsou que 
les Anglais Je le savais bien que 
vous aviez des programmes 
caches dans vos tiroirs Je le 
savais bien que vous etiez capa- 
bles d'ecrire des programmes 
aussi costauds que "Apple parle 
Francais" (pour la petite histoire. 
une societe que je ne nommerai 
pas commercialise un logiciel 
similaire au prix de 1 200 francs. 
Avec les 8 francs d'Hebdogiciel. 
ils auront peut-etre du mal a le 
vendre !). Quand je vois vos pro- 
ductions, comme (aire appren- 
dre des mots a un ZX81. faire 
(aire des jeux d'aventure a une 
petite machine comme le Casio 
trots premieres cases, le "tout" a evidemment 



FX 702-P ou encore faire aug- 
menter la vitesse de transmis- 
sion K 7 a urt TRS 80 ou faire des 
jeux graphiques avec un 
PC 1 500. je dis : tout est presque 
parfait. II ne vous reste plus qua 
non seulement conlmucr, mais 
encore aller plus loin dans I'ori- 
ginalite. 

Cette semaine nous deplorons 
le depart du MPFII, trop peu de 
programmes recus. il restera sur 
la louche pendant un mois, 
Gerard ROUGEVIN, le seul lec- 
teur a avoir ete public gagncra 
quand meme un livre qu'il pourra 
choisir dans la bibliolheque de 
la Regie a Calcul. Utilisateurs de 
MPFll, n'abandonnez pas votre 
ordinateur, envoyez-nous des 
programmes de qualite pour 
que MPFll revienne des le mois 
de decembre. 

Par contre, un nouveau venu, 
GOUPIL. avec un programme de 
jeu (casse-tete). Les possibility 
de eel ordinateur nous laissent 
esperer des programmes do 
qualite A vos claviers! 

G.CECCALDI 
un rapport avec linformatique. 
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TRILOTO 



Vous jouez au loto un bulletin d'abonnement de 8 gril- 
les valable pour 5 tirages, et vous attendez le 5" tirage 
pour controler vos grilles. Vous possedez une HP 41 C 
avec son imprimante et des modules memoire supple- 
mentaires. Rentrez done ce programme qui verifiera 
vos grilles sans erreur et imprimera les resultats. 
Faire SIZE 1 08. FIX et rentrer ce programme de 1 043 
octets (425 lignes). Rentrer dans les registres R00 et 
R47 les 48 numeros de votre bulletin (8 grilles a 
6 numeros)- Si vous jouez toujours les memes grilles, 
profitez-en pour les enregistrer sur cartes magne- 
tiques. 

Faire RTN et lancer le programme par RIS. 
Affichage de 7 x 5 tirages. A chaque tonalite. vous 
introduisez un numero de tirage (vous en avez 35 a 
introduire car il y a 5 tirages de 7 numeros). Ne pas faire 
RIS, la boucle de demande d'introduction des tirages 
repart automatiquement. 

Apres I'introduction du 35 e numero, le programme 
compare les grilles du joueur aux numeros des tirages 
et imprime les resultats. 

Pierre GARRE 




************ 
TIROGES LOTO 
************ 



RESULTfiT 
******** 



TIROGE 1 , 



GRILLE 1= RUCUH HUflEPO 
Willi 2= \i. 
GRILLE 3= 12.- 17. 
GRILLE 4= 21.- 19. 

GRILLE 5= AUCUH HUMERO 
GRILLE 6= 31. 
GRILLE 7= RUCUH HUHERij 
CMUE '/■-- 44. 

TIRRGE 2. 



GRILLE 1= RUCUH HUMERO 
GRILLE 2= RUCUH NUMERO 
GRILLE 3= 13.- 16. 
GRILLE 4= 21.- 2«. 
GRILLE 5= AUCUH HUMERO 
GRILLE 6= 35. 
GRILLE 7= SUCUH HIJHERG 
GRILLE 8= 42. 

TIRfiGE 3. 



GRILLE 1= AUCUN HUMERO 
GRILLE 2= AUCbH NUMERO 
GRILLE 3= 16. 
GRILLE 4= (tUCl'H HUMERO 
GRILLE 5= 24.- 29. 
GRILLE 6= 31. 
GRILLE 7= 41.- 38.- 4e. 
GRILLE 8= AUCUH NUMERO 

TIRfiGE 4. 



GRILLE 1= RUCUH NUMERO 
GRILLE 2- flUCUH NUMERO 
GRILLE 3= 14.- 17. 
GRILLE 4= 19.- 23. 
GRILLE 5= RUCUH NUMERO 
GRILLE 6= 35. 
GRILLE 7= RUCUH NUMERO 
GRILLE 8= 46.- 42. 

TIRfiGE 5. 



GRILLE 1= 48. 
GRILLE 2= RUCUH HUMERO 
GRILLE 3= 15. 
GRILLE 4= flUCUH HUMERO 
GRILLE 5= 25.- 27. 
GRILLE 6= 38. 
GRILLE 7= 38. 
GRILLE 8= 45. 



91H-BL "TRILOTO- 

82 SF 12 

83 CF 21 

84 CF 22 

85 188.18681 

86 STO 99 

87 CLX 
98»L8L 88 

89 STO IND 99 
18 ISG 99 

11 GTO 88 

12 48.88281 

13 STO 96 
I4«L8L 81 

15 -7X5 TIRAGES- 

16 AVIEH 

17 TOHE 6 

18 PSE 

19 PSE 

28 FCC 22 

21 GTO 81 

22 STO IND 96 

23 ISG 96 

24 GTO 81 

25 SF 21 

27 ACA 

28 PR8UF 

29 -TIRAGES LOTO' 
38 ACA 

31 PRBUF 

32 ••tt«t***tt*t* 

33 ACA 

34 PRBUF 

35 ADV 

36 ADV 

37 - RESULTAT- 

38 ACA 

39 PRBUF 

4^ • WM4M 1 

41 ACR 

42 PR8UF 

43 fltV 

44 RDV 

45 CE 21 

46 -VERIFICATIOH- 
4? DVIEU 

48 SF 21 

49 XEO 85 
58 I 

51 XEO 86 

52 48.85481 

53 STO 97 

54 XEO 82 

55 XEO 12 

56 XEO 85 

57 2 

58 XEO 86 

59 55.86181 
68 STO 97 

61 XEO 82 

62 XEO 12 

63 XEO 85 

64 3 



65 XES 86 

66 62.86881 

67 STO 97 

68 XEO 82 

69 XEO 12 
78 XEO 85 

71 4 

72 XEO 86 

73 69.87581 

74 STO 97 

75 XEO 82 

76 XEO 12 
7? XEO 85 

78 5 

79 XEO 86 
88 76.88281 
8! STO 97 

82 XEO 82 

83 XEO 12 

84 ADV 

85 ADV 

86 ADV 

87 ODV 

88 ADV 

89 ODV 
98 OFF 
9HLBL 82 

92 RCL IND 97 

93 STO 89 

94 ISG 97 

95 RCL IND 97 

96 STO 98 

97 ISG 97 

98 RCL IND 97 

99 STO 91 
188 ISG 97 

181 RCL IND 97 

182 STO 92 

183 ISC 97 

184 RCL IND 97 

185 STO 93 

186 ISG 97 

187 RCL IND 97 

188 STO 94 

189 ISC 97 

118 RCL IND 97 

111 STO 95 

112 RTH 
U3«L8L 83 

114 188.18681 

115 STO 99 

116 RCL IND 98 

117 STO 83 

118 ISG 98 

119 RCL IND 98 
128 STO 84 

121 ISC 98 

122 RCL IHD 98 

123 STO 85 

124 ISC 98 

125 RCL IHD 98 

126 STO 86 

127 ISC 98 

128 RCL IHD 98 



129 STO 87 
138 ISG 98 

131 RCL IHD 98 

132 STO 88 

133 RCL 89 

134 RCL 83 

135 X=Y 9 

136 STO IND 99 

137 RCL 89 

138 RCL 84 

139 X=V 

148 STO IND 99 

141 RCL 89 

142 RCL 85 

143 X=Y? 

144 STO IHD 99 

145 RCL 89 

146 RCL 86 

147 X=Y? 

148 STO IHD 99 

149 RCL 89 
158 RCL 87 

151 X=V> 

152 STO IHD 99 

153 RCL 89 

154 RCL 88 

155 X=Y' 

156 STO IHD 99 

157 ISC 99 

158 RCL 98 

159 RCL 33 
168 X=T? 

161 STO IND 99 

162 RCL 98 

163 RCL 84 

164 x=y? 

165 STO IND 99 

166 RCL 98 

167 RCL 85 

168 X=Y? 

169 STO IND 99 
178 RCL 98 

171 RCL 86 

172 X=Y? 

173 STO IHD 99 

174 RCL 9S 

175 RCL 87 

176 X=Y? 

177 STO IHD 99 

178 RCL 98 



179 RCL 88 
188 X=Y' 

181 S10 IND 99 

182 ISG 99 

183 RCL 91 

184 RCL 83 

185 X=Y? 

186 STO IND 99 

187 RCL 91 

188 RCL 84 

189 X=Y? 

198 STO IHD 99 

191 RCL 91 

192 RCL 85 

193 X=Y' 

194 STO IHD 99 

195 RCL 91 

196 RCL 86 

197 X=Y' 

198 STO IND 99 

199 RCL .91 
288 RCL 87 

281 X=Y? 

282 STO IND 99 

283 RCL 91 

284 RCL 88 

285 X=Y? 

286 STO IND 95 

287 ISC 99 

288 RCL 92 

289 RCL 33 
216 X=Y? 

211 STO IND 99 

212 RCL 92 

213 RCL 84 

214 X=Y? 

215 STO IND 99 

216 RCL 92 

217 RCL 85 

218 X=Y? 

219 STO IHD 99 
228 RCL 92 

221 RCL 86 

222 X=Y^ 

223 STO IND 99 

224 RCL 92 

225 RCL 37 

226 X=Y? 

227 STO IHD 99 

228 RCL 92 



229 RCL 88 
238 X=V> 

231 STO IND 99 

232 ISG 99 

233 RCL 93 
'34 RCL 83 

235 X=Y' 

236 STO IND 99 

237 RCL 93 

238 RCL 84 

239 X=Y' 

248 STO IND 99 

241 RCL 93 

242 RCL 35 

243 X=Y? 

244 STO IND 99 

245 RCL 93 

246 RCL 86 

247 X=Y? 

248 STO IND 99 

249 RCL 93 
258 RCL 87 

251 X=Y'' 

252 STO IND 95 

253 RCL 93 

254 RCL 88 

255 X=Y' 

256 STO IND 99 

257 ISG 99 

258 RCL 94 

259 RCL 83 
268 X=Y? 

261 STO IND 99 

262 RCL 94 

263 RCL 34 

264 X=Y"> 

265 STO IND 99 

266 RCL 94 

267 RCL 85 

268 X=Y? 

269 STO IND 99 
278 RCL 94 

271 RCL 86 

272 X=V 

273 STO IND 99 

274 RCL 94 

275 RCL 87 

276 X=Y' 

277 STO IHD 99 

278 RCL 94 



279 RCl 88 
288 X=Y? 

281 STO IHD 99 

282 ISG 99 

283 RCL 95 

284 RCL 33 

285 X=Y"> 

286 STO IHD 99 

287 RCL 95 

288 RCL 34 

289 X=Y? 

298 STO IND 99 

291 RCL 95 

292 RCL 85 

293 X=Y-> 

294 STO IND 99 

295 RCL 95 

296 RCL 86 

297 X=Y? 

298 STO IND 95 

299 RCL 95 
388 RCL 87 

381 X=Y' 

382 STO IND 99 

383 RCL 95 

384 RCL 38 

385 X=V> 

386 STO IND 99 

387 XEO 84 

388 RTH 
369«LBL 84 
318 -GRILLE ■ 

311 ACR 

312 RTH 
313«LBL 85 

314 ADV 

315 SF 12 

316 - TIRAGE- 

317 ACS 

318 RTH 
319«LBL 86 
328 OCX 

321 PRBUF 

322 • 

323 ACA 

324 PRBUF 

325 CF 12 

326 RTH 
327.LBL 87 
328 188.18681 



329 STO 99 
338 RCL Ilfll 99 
331 x«r> 
132 XEO 89 
333 GTO 98 
334«LBL 18 
315 RCL IHD 99 

336 X=8^ 

337 GTO 88 

338 R"L IHB 99 

339 XiS' 
348 XEO 89 
341H.8L 88 

342 ISG 99 

343 CTO le 

344 188.18681 

345 STO 99 

346 CLX 
347»LBL 13 

348 RCL IND 99 

349 * 

358 ISC 99 

351 GTO 13 

352 X=8' 

353 XEO 1 4 

354 PRBUF 

355 CF 85 

356 188.18681 

357 STO 99 
358>LBL 1! 

359 8 

368 STO IND 99 

361 ISC 99 

362 GTO 11 

363 RTH 
3644LBL 89 

365 45 

366 FS' 85 

367 ACCH? 

368 RCL IND 99 

369 ACX 
378 SF 85 
371 RTN 
3?2>LBL 14 

373 • RUCUH NUMERO" 

374 ACA 

375 RTN 
376«LBL 12 

377 8.88581 

378 STO 98 



379 XE»<n 
38* ■!=• 

381 ACR 

382 XEO 87 

383 6.91181 

384 STO 98 

386 "2=- 

387 net 

338 XEO 87 

389 12.81781 

398 STO 98 

391 XEO 93 

392 -3=- 

33 m 

394 XEO 87 

395 18.62381 
3% STO 98 

397 XEO 83 

398 -4=- 

399 RCA 
488 XEO W 
461 24.82981 

482 STO 98 

483 XEO 83 

484 -5=" 

485 ACA 

486 XEO 87 

487 38.93581 

488 STO 98 

489 XEO 83 
418 -6=- 

411 RCR 

412 XEO 87 

413 36.64181 

414 STO 9S 

415 XEO 83 

416 -7=" 

417 ACA 

418 XEO 87 

419 42.8478! 
428 STO 98 

421 XEO 83 

422 -8=- 

423 RCA 

424 XEO 87 

425 RTN 

426 END _ 



LE COMPTE EST BON 



Avec 4 modes de fonctionnement. ce programme 
"CPTBON" n'a rien a envier a la television. II peut calcu- 
ler en temps limite (mode 1), en temps illimite (mode 
2), en imposant tous les parametres a la machine 
(mode 3) ou en laissant I'ordinateur tirer les ch iff res au 
hasard. 

Seuls les nombres 1 a 1 0et 25, 50, 75 et 100 sont utilisa- 
bles et ils ne peuvent servir que 2 fois pour un meme 
tirage. 

Le programme recherche en priorite le compte exact 
et, s'il est introuvable, il decremente le nombre a trou- 
ver de 1 pour s'approcher le plus possible de la solu- 
tion. 

Marc MAIZIER 




16 i 81.82.33 CPTBON 

28 WIDTH INF 

38 DELAY 8 

48 8EEP OH 

58 ' presentation 

68 A$='l Simulation di, c 

onpte est bon I* 

78 FOR 1=1 TO 16 6 8«=Rt 

[1,11 

88 FOR J»W TO 32-1 8 I 

t=Mt- " 9 NEXT J 

98 DISP B«At(33-II 

186 NEXT I 

116 FOR 1=1 TO 32 

126 A»Il.n=CHRS(HUM<Ri; 

l,IJ>*128) 

138 NEXT I 

148 DISP RI > MPIT 3 

158 i choix 

168 DISR -Reponse m Plu 

s rapide C;CHR«(287),-' 

-,CHRt(296).-l -,CHRI(I9 

1) 

178 COSUB 1856 



188 IF K«=-0- THEN 01=1 
8 T=3886 9 GOTO 248 
198 IF Kl=-N- THEH 01=9 
299 IF KH-O- AND KJfH- 
THEH 179 

218 INPUT -tenps lie red 
exion *.-45';T 
226 T=ABS(T)t.I 
238 DISP -Tews de relle 
xion -.T-.l 6 HAIT 2 
248 DISP -I-tCHR«(193)f 
lutonatMue / [-SCHRt<28 
5H-lanuel -lCHRf(l91> 
258 ! initialisation 
268 FOR A=B TO 8 8 N(A). 
E(fl),H(fl).B(Ai=e 6 NEXT 
A 

278 G0SIJ8 1858 
289 IF k-«=-fl- THEH 1298 
299 IF KII-H- THEN 279 
388 FOR 1=1 TO 6 
318 RESTORE 

328 DISP USING -6a.x,d,2 
a* . -Plaflue'.I.- ""J 



338 ON ERROR GOTO 329 

349 INPUT B(I) 6 Y=8 

358 ! p|a«ue valable ? 

368 FOR J=l TO 14 

378 READ 6 IF 0=8(1) T 

HEN Y=l 

388 NEXT J 

398 IF Y=I THEN 466 ELSE 

GOSUB 1696 9 GOTO 318 
469 GOSUB 1329 
418 IF F=3 THEN COSUB 18 
98 6 GOTO 319 
426 NEXT I 
436 OFF ERROR 
446 ON ERROR COTO 518 
459 DISP "Un nonbre de 3 

chiffres :■; 

468 IHPUT A(9) 6 Z(l)=fl< 
9) 

479 OFF ERROR 
488 IF A<8><=8 THEN 518 
496 IF FP(A(9))I8 THEN 5 
18 
589 IF IP(L0GI9(A<8>>>=:' 



THEN 528 
518 GOSUB 1896 6 COTO 44 
8 

528 DISP USING 538 ; "!' 
jB(8),-|-iB(l),B(2)iB(3) 
;B<4),8<5>;8(6) 
538 IMAGE a,x,3d,x,a,6(x 
.3d) 

546 ' tnit chronos 
558 ' duree recherche 
568 ON TIMER I 8,T GOTO 
868 

578 ! fin reflexion 
586 OH TIMER I l.T BEEP 
568,. 4 9 GOTO 869 
598 ' netronone 
688 OH TIMER I 2. 1 BEEP 
688,. 881 

618 I debut recherche 
628 X=TIME 6 Z,N=9 
639 S,B(8).M(9).E(6).B(7 
)=8 

649 FOR D=l TO 6 6 H(D)= 
B(D) > NFXT D Su/( 



S'il nest pas chinois. ce casse-tete n'en est pas moins 
demoniaque; il vous faudra de longs moments pour 
arriver a sortir le grand carre "J" de 1'enchevetrement 
de pieces du puzzle. Deplacez les morceaux du casse- 
tete avec les fleches du puzzle. 



Philippe CARON 



It EXEC.-TTySET ps>n- 

20 «M INITIALISATION ECRAN COULEUR 

3« COLO* TiOU'DA 

4B WE HEXCEBFe'). 1 

SO EXEC. -9. ••rscsr- 

60 POKE HEX<-E7FE">.B>t s O*E HEX< "E7FF" 1. B6 

78 REN INITIALISATION TABLEAUX 

ee Din Ci;5i.Ti36i 

90 DATA II, 12, 1J, 14, 13. 22. 32. 23. 33. 41, 42. 43. 4*. 43. 2*. 25. 34.35 
100 DATA -1. 1, -•.. -!.-'.. -i, -I.- 1.1.1. 1,1. 1,-1.-1.8. 1,1.1. I. -1 
110 DATA -1,0. 1,1.1. 1.-1,-1, 1. 1. I. 1. l.- 1.- l.-l, -i,-i,-i,-i,_i 
128 FOR l*-l TO IBiREAD CUX> 1NEXT IK 
llfl FOR 1X-8 TO 3 

i*a for jx-a to s 

130 READ Titx-1B*J*> 
160 NEXT J* 

we NEXT IK 

180 COLOR 

190 PORT 3 

200 PRIST CHR*<20>:CHR»<4B>iCHM<2' :CHR»i 2^: "CQSSE-TETE* 

2*3 GOSUB 3800 

210 PORT 

229 PLOT 20.78 TO 2B.3B1PLGT TO li8.5«iPL0T TO 12B. 163 

239 PLOT TO 29. !63:PL0T TO 28. 1 35 

2*9 PLOT 19. 7B TO 19.49!PL0T TO I21.a9:PL0T TO 121. '.64 

238 PLOT TO 19. :E4:PLQT TO 19.135 

269 GOSLS 134B 

270 L**INCH*' 3' 
288 L-ASC<L«' 

290 IF l<65 OB LI 74 —£N °RINT CHR»(7):D0T0 27B 

293 *-H-! 

300 L-L-64 

318 D-ASC( INCHUffl' i 

328 :F DOS AND DOIB AND 0(111 AND 0O29 THEN PRINT CHR»(7>:G0TQ 31B 
330 IF 0-8 TmEN V- 1 

3*8 IF 0-29 THEN V-I 
358 IF D-IB THEN V-1B 

zss :f d=h then v— 19 

370 ON L OOTO 380. 4&B. EBB. 7riT.3Sa.94B. 1E2B. HOB. 1248. 1358 

3B0 N-CU)*V 

390 IF T(N)OB THEN ;33B 

480 0X-C(I)/:BiUX-C<l>-DX-19 

419 COLOR 7I00SUB 1928 

420 T(C< t )>-0lC<l)-N:T(N)-I 

aza mt-ciii/ia:u*-ctn-M-i0 

440 COLOR 2iC0SUB 1928 

4sa sotd 22»a 

468 RE" 

470 IF v— 1 THEN CI-C!2)*v:C2»C<2>*V 

488 IF V-l THEN C1«C(3>*V:C2»C1 

490 IF V— 19 OR V*I8 THEN CI-C<2>*ViC2-C<3)+V 

580 IF T'CllOB Ofl TiC2>(>0 THEN 1538 

310 DX-Ci2>/l9iUX-C(21-DX.lfl 

329 COLOR 7:C0SU8 1998 

33.9 IF V»-l THEN T{C(3))-B'C<2>-CE2>-UC<3)-C<3I-IIT(C(2>>-1 

549 IF v«l THEN T(C<21>=8iCd>=Ct2>*!:C!3>-e(3)-*liT<CC3M-l 

539 IF v»i8 THEN T(C<2W»9iTlC(3>>-9>C(2)-C<2)*lB:C(3)-CC3'*lBJT<C(2)>«liT(CC3)) 

368 :f v— IB THEN TfC(2)J-0JT(C(31 J-aiC(2)-C(2J-10iCt3t-C(3)-IBiT(C(2)t-l:T<C(3) 

37B 2.%-C(2»/19:UX-C<2>-DX-ie 

S8B COLOR UGQSUB 1990 

— J -.~"3 r?T7 

£22 sen 

EtB IF M— i Then C:»C!4>-WiC2-C(4>*V 

615 IF V-l Then CI=C<5)-V:C2-C15>*V 

629 IF V--I9 OR V»:0 THEN Ct-C'4>*V:C2-C(S> *V 

S39 IF TiCllOB OR T'C2>')0 THEN 153B 

640 CK-C'4i/l8:ti*=C'4i-DK-lB 

659 COLOR 7:GGSU8 1998 

66B IF V=-'. .•:-. ,-,,=Cr.'.)-:tC(3>-Ci51~I:T'C(4i i-l 

•L7Z :- /-I THEN T(C(ii)j-«lC(4)-Ct*>*llC(Sl-C<5)*l!T(Ct3))-] 

6B0 :f v=:a THEN rCCf4)>-«!T<C<9n-«>C<A>>C(A)*ierCC3>>CC3)MfliT<Ct<l) 

69B IF «--'.:■ ■ ■ il: I ■■Z'*- iTB:C'4>-C!4)-lBtC<5i=Ct51-18iT(C'4' ' = : IT ■ .'. r3 I 

.=: 

799 D*-C"W:e:uK=C'4)-DX'lB 
71B COLOR UCCSUB 1999 
720 GOTO 2208 

7;a N-ei&'-v 

748 IF V--1B THEN C! >C'6' *V:C2-C! 
73B IF y=.iB then CX-CC7>*VlC2-Cl 
7EB ;f v-l cr v-] tmen Cl^(E>*ViC2-CC7>*V 

778 IF TfCIlOB OR T<C2>O0 THEN 1538 

788 0*=C*GI/1B:UK-C'6)-DK'1B 

79B COLOR 7iG0SUB i'.TB 

£89 IF V— 1 THEN TrC'E.' i-a:TiCI7l)-0iC<6>-C<6)-liC(7)-C(7>-IlT(Cr61 > = i:T<Ci V "1 

£19 IF V-.1 THEN TrC'Si • = 8:T'Ci7i i.8:C(6>-Ci6i*llC<7i-C(7j*liTiC<Ei i-l!T<Ci7n-l 

328 IF V— 19 THE* -<C< 7 < >=B:C(6i -Ci6>-:B:C( 7>=d7l- IBi T<C(6> >•! 

E3B IF V—18 THEN t, o&i i-8:C(£ > -C<6> H0tC< 7) =>Ci 7 1* 111: T I C(7 I )-| 

34B DX-C'S>/:BrjX=-C<e!-DX*:B:COLQR 1 : GOSUB 213B 

S3B GOTC 22B8 

069 IK<B)*V 

379 IF TINlOB THEN 1538 

SEE DK'Ciai/;B:US"C'3>-DS':B 

29B COLOR 7:GQS.jB :^ia 

3BB T<C«B) ■»0:C'H.-N:T. ;■ . 

31B D*=Ci3'/13iu*«Ci3> DX--.B 

32b color 2:cq3ub :92b 
■,:.• :-.--. ;;ce 

■3iB »C(3)>« ^» 

9^B IF -i,'d-'i3 '■ ' .^0ak»» 

96B 0*-C'^'/18sU*-C'9'-0**:B * «■ % %.^ 

'•i-N:T'C'9>)-1 ,^1 mW^ W 

398 DK-C'9i/1B:UK-C'9>-D**1B *T^^% ■ ™ 

^>"%> ft ■ %^ 

:b:b D0' r . aT" T^m. -# 

1828 IfcCl ■ *^^*^^ 

1338 ^0^/* 

1858 COLOR 71O0SUB 1920 

1868 T.C<19» >-9iC(18>-N!HC'lBf )-l 

1978 0»-C(ie>/18iU*-C(IBi-O»«lB 

:asa color hoosub i929 

1<!><12 OOTO 2200 

•.188 N-C II ■•■J 

L110 IF V— 1 TKEN Cl=CU!l«V!C2"C(l 1>»V 

v-l T»€M Cl-C'12i*VtC2=C'12i-V 
: 1 r J If v— IB OR v»IB THEN Cl-C ! 1 "V:C2-CI 12>*V 

"Cli OB OR TfC2> OB *MEN 13^8 
HiZ D*»C*lli/lBiU*-Ct!H-IW«10 

M 7JO0SUB 1998 
1178 IF V-- 1 THEN TICM2n-BiCdl i-C'll i-p. '.' 11 n-i 

::EB if -j . BiC(tl)-C<1 l)*l<C«12>*C<I2}*liT<C<13)>-] 

: :3B :r v-;a THEN " 'C i : i -at T'c n>)-0ic(ll)-C< I i>«ibiC(12)-C i2i*iBiT(CU i ) i-t 

■ 

1288 IF V--I0 THEN T(C<II))-8!T(CI12>)-aiCUl)-C(ll)-10IC<12)"C<l2)-lBiTiClll))- 

l ji jm 

12!B Di.=C< 1! J/18:U*-C<11)-DS»18 
1228 CJLOR HOOSUB 1938 
1230 OOTO 2288 
1248 N-CU3)*V 

12SB IF V--I THEN Cl-C< 13.-ViC2-C'!3l*y 

12EB IF 7-1 THEN Cl-C»14>*ViC2-C' U- ' -J 

I27B IF V.-IB OR V-IB THEN Cl-Cf 1 3) *V>C2-C 141 . V 

12EB IF T(C11()B OR TIC2X1B THEN liTB 

1238 D*-C 13! /IB! U*-C 'JJI-D** 10 

13ZB COLGR 7IG0SUB 199B 

131B IF V=-l THEN T<CU41)-8IC<13)-C(l3>-liC(l(li-Ci !f.i-HT(Ci 13D-1 

1328 IF V-I THEN T<CI13))-9«C<13)-CU3»-1 IE(U)-C(14>H iTICllftl 1-1 

133B IF V-18 TmEN T<Cil31)-0!liCI14i>-BiC(13i-C(13H'10tCI 14>-C( 14 I • IBiTlCt 13) >-l 

IT.C'14! (-1 

134B IF V--1B THEN rrcUT! >-BI T <C i 14 > )-9>C( I3)-C( I3)-10lC< 141-CI 14)-19> T(C< 13) >■ 

t>T(C(14)>-1 

1338 O*-C(13)/I01UK-Cil3i-D**1B 

1369 COLOR 1! GOSUB 1998 

1378 OOTO 22001 



IH0 N-CU31*V 

398 IF V — 1 TMEN Cl-O 13 i -VI Ci-Ci I ?"v 
408 IF v-l THEN Cl-C 16HVIC2-CI1BXV 
418 IF V— IB THEN C1-C(151*VIC2-C(16)*V 
428 IF V«1B THEN C1-CU7) -VtC2-CM B) "J 

438 IF TlCti OB OR HC2IO0 THEN is;a 
44B D»»C<l3>/10iU**C<15i-B«»H) 

439 LOLOR 7IQ0SUB 2960 
*60 IF V--1 THEN TiCUBI !-8iT(CI!BH-0tC(15)*C 

■ ciiQ)>ctie>-iinc(i5>)-iir<c(i7)>-i 

470 IF V«l THEN T(C(13ll-8>TlC(171 
1C(1B)-C(ie)'-1IT(C(16>)-1IT[CI1EI>>' 
488 IF V--1B THEN T(C( 17) >-ei T(CI IB) >-8:CU3i-C< 15)-10iC(16)-C( lt> -IBiCl 



i)-£<15)*llCC16>-C(16> 



HC(17»-C(17l- 
HC(17>-CMT>* 



■IBICC 
499 IF < 



i-C(ie 



•*1B THEN 
18>=CC18i*l 

C(13)/10!U1 
318 COLOR 4IGOSU8 
52B GOTO 2288 

CHR»l7!i 



)IT<C(13))-1[T1CUE>! 



I C 1 1 z 



1=8!- 



iCf 16.)l=0:Cl ISl*ClI3)*10lCll6)*CC16)*iaiC(t: 



-C<13)-DK>1B 



l-CII 



350 L 

333 C 

368 GOSUB 1928 

37B O%»C!8)/l0lU»-C(e>-D%*10 

38B L*-*E" 

363 COLOR 2 

59B GOSUB 192B 

D%-C(9)/lBiU«-C<9)-D**ia 



eta 



.»--*■■■ 



613 COLOR 2 

E2B GOSUB 192a 

638 D«-C<ia)/lB>U*-C<18)-DX-ig 

648 L»«-G" 

645 COLOR 2 

638 GOSUB 1928 

66B D*-C<2J718iUK-C(2)-DS-19 

67B L»-"B- 

675 COLOR 1 

EEB GOSUB 1998 

699 0*-C<4>/lBiU*-t<4)-DK«lB 

788 L»— C" 

7B5 COLOR 1 

718 GOSUB 1998 

720 D*-C(11)/1BIU*-CU1>-D«-1B 

738 L*=-H" 

77.; COLOR 1 

7i3 GOSUB 1393 

738 DK=C<13>/:b:U*=C< I3i-D*-:9 



76B 1 



,.[- 



765 COLOR 1 

770 GOSUB 1998 

723 D*=C(15)/18:U*=CU5)- 



795 COLOR 4 
388 GOSUB 2B68 
SIB S*-C<E)/tB!i 
82B L*-"0" 



l=ClEi-D*-ID 



825 C 

E3B GOSUB 2138 

S4B PORT 3 

858 COLOR 1 

868 PRINT CHR«i :S.i:CHR*iISBi;CHR»t:i 

878 PRINT CHR»<10> :CHR*<19Si :CH<)ti : - 

888 PRINT CHR«<1B> :CHR*(2B0':CHR»m 

89B PRINT CKR*< 1B> :CHSH2:a>!CHR»<l> 

998 RETURN 

918 END 

92B PLOT 1.2a-UX.27-'2S-D* TO 23*2B*U: 

938 PLOT TO 29*28*U*. 5B»28-DK 

949 PLOT TO 1*20*UX. 3B*2B*DX 

959 PLOT TO 1*29'U*.23»2£>DX 




-VOUS DEVEZ SORTIR LE GRAND CARRE J" 
"TRPER LO LETTRE DE LA PIECE QUE VOLS" 
"VOULEZ DEPLOCEI.PflESSER UNE DES DUhTRE*" 
'FLEChES POUR INDIDUER LE DEPLACEMENT " 



■2E-DX>-.C-R*I2»!L» 



]-'jx. .-r-;e-D-i 



!CHR»<2P !L» 



97B PRINT CHR*<-*2E'UX>! 

988 PORT B:R£TIIRN 

99B PLOT 1-2B-UX. 23-2G*DS TO 49*20' 
2888 PLOT TO 48*28*UX. 58*28*D* 
2B1B PLOT TO 1-2B»U*. 50-28*0* 
2B2B PLOT '0 1*2B*U-.. 
rBIB PORT 3 

2948 PRINT CHRtUH*2a'[iV.CHRt.(45*28'DX>i 
2B5B PORT 9SRETURN 
2B6B PLOT l.2B*UX.23-2E>D* *0 aO-ia-ux. IZ -^E-rjiv. 

2B7B plot -c ib*ib*'j<. 7E';b*DX 

2B8B PLOT 10 I-28-UX. 78-2B*DX 

233B a LCT TO ;..-B-US. 27--:S'DX 

2188 PORT 3 

2118 PRIM CHR»(I0*20*L«HCHR»C5O*28*IWJlCMR«<2)l 

.-12B PORT BIRETURN 

2138 PLOT l*20*UX,Z3*2B>Oll '0 2Z* 28 ~U%. 23*28- DX 



2148 PLOT TO 28'28*UX.78«2e«DX 

2158 PLOT TO 1*28*UX, 7S*2S*DX 

2168 PLOT TO l*2a>UX.:3*28*0X 

2171 PORT - 

2180 PRINT CHR*<3*2B-UXJiCHR*t*,G'26*Dx>iCHR*l2)!L* 

2198 POflT BiRETURN 

2289 IF C<13) U31 THEN 278 

2218 FOR 1-1 TO :a 

222B PRINT CHR*(71 

. I ■ ■ 

2231 OPEN "not*" 0S1 

2232 DIlWt.NXll 

2233 RE-NCI) 

22-4 IF n<RE THEN N(1)«K 

22.'5 CLOSE 1 

.'24C COLOR 8i PORT 3 

2241 PRINT CxRUlO! 1CHB». 220) ILHR»I n !"GOGNE EN -IK!' COUPS' 

2242 PRINT CHR*( 10> ICHB»i238MCHR*iP i"LE RECORD E1AIT DE -IRE 
224^ PORT BiEND 

38BB PRINT CHH»( 176 ' :ChR«( 60! :CHR»< 1 ' 1 -Ph. . . oe* CORON' 
30IC PRINT CHRtil6nitCHR»(e9HCHR»(lM-ADEMIR-TSonftN" 
3828 RETURN 



** Suite de /a page 2 






^0/ 


745 IISP 


988 FOR F=S TO 1 STEP -1 


1118 DBTB 1,2,3,4,5,6,7. 


^r 


P<S-l)i-fi8(h(S)),v-iB 


916 R=R(F) 8 P=8(E(F>) » 


8,9,16,25,56,75,168 




CE<S»f--)flCS) 


G=R»P 


1128 1 decrementation ci 


HP 75 


756 IF B(S)=IP(8'S1) THE 
H 888 


928 IF P=C OR P=G THEH 9 
46 


ble 

1136 2=1 6 B(8)=fl<6)-1 


766 IF E(S)<6 THEN 686 E 


938 DISP USIHC 1626 ; R, 


1148 IF D(e))l88 THEN 63 




LSE E(S)=6 


••■it>;-=-|G 6 C0SU8 1658 


8 





776 IF N(S)<7 THEN 666 E 


948 IF G=0<F-i) OR 8(H(F 


1158 DISP -Je n'ai Ms d 


° « 


LSE H(S)=6 


>>=fl<F-n THEN 978 


e solution" 6 C0SU8 1858 




9 


786 IF S=l THEN 1138 


958 IF C(R(F-1) THEH St= 


6 GOTO 988 


.» * 


796 S=S-1 6 H(H(S))=8(H( 


•*• ELSE St=--- 


1168 ' arrete chronos 


W; : 


S)) t H(E(S»=8(E(S)) 8 


968 DISP USING 1826 ; C, 


1178 FOR 1=8 TO 2 6 OFF 


GOTO 766 


Sl!B(WF))i , "-iB(F-n 6 


TIBER 1 I 6 NEXT 1 8 RET 


866 IF MS>=8 Ofi ll<S)=l 


GOSUB 1858 


URH 


cC^^IkV 


THEN 838 


978 NEXT F 


1188 ' veneration aleato 


%y 


816 IF H<SW THEH 826 E 


988 DISP -Fin I'tCHRtd? 


ire 


LSE H(H<S))=-1 


6)i*] — [louche] sauf 


1198 ! able et pla«ues 


*s 


826 IF E(S)=8 THEN 658 E 


IBTTN1- » C0SU8 1858 


1286 R8ND0BI2E 




LSE H(E(S))=-1 6 GOTO 65 


998 IF Kil-8- THEN 168 


1216 (K6)=IP(RND«186e! > 




8 


1868 DISP TB8(13),-Bu re 


IF 0(8X161 THEN 1216 


658 S=S*1 


838 11=1 6 OFF TIBER 1 8 


voir" 6 CLEAR VBRS 


1228 2(11=0(8! 


668 H(5>=«(S)tl 


6 E=TIItE 


1618 ! 


1238 FOR 1 = 1 TO 6 


676 IF B(ll<S!)=-l THEN ? 


846 IF 01=1 THEH 868 


1628 INBGE 5X,2(4D.2X,B. 


1248 R=IP(14«RND1 6 IF 0. 


re 


856 FOR 1=1 TO INF 6 NEX 2X),4B 


=8 THEN 1248 


686 E(S)=E(S)«I 8 IF E(S 


T I 


1838 ' saisie clavier 


1258 RESTORE 


)=7 THEH 688 


868 GOSUB 1176 8 IF N=8 


1848 ' attente Aaxi 2 nf 


1268 FOR Y=l TO » REOD 


686 IF »(E(S))=-I OR E<S 


THEH 8ISP TdB<4),-Je rrs 


nutes 


V 6 NEXT Y 


)=«(S) THEH 766 


i pas de solution" 6 COS 


1656 ON TIBER 1 3.126 OF 


1278 B(I)=V 


786 IF 8<E(S)) = I OH B(E( 


■JB 1658 8 COTO 886 


F TIBER « 4 6 BYE 


1288 GOSUS 1328 


S))=8(H(S)) THEN 766 


876 IF N=I THEH DISP US I 


1668 ! rappel de 5 en 5 


1298 IF F=3 THEH 1248 


716 »<$>=<A<S-l)-B<n(S>> 


NG -43.,x.3d.x,3a,x.4d.d. 


secondes 


1386 NEXT I 6 COTO 528 


)/B(E(S)) 


»• , •J , ai - ,fl<8).-en :\ 


1676 ON TIBER 1 4,5 BEEP 


1318 ' (=3 si 3fois nene 


715 DISP 


E-X.-" • GOSUB 1656 


1688 K«=KEY! 6 IF K«=" 


platue 


B(S-l)i"-'(B«KS»iViB 


888 IF Z=8 BND H=l THEN 


THEN 1688 ELSE K!=UPRC«< 


1328 X=8 6 FOR 2=1 TO 1 


(E(S))i'«'iR(S) 


DISP TflB<8I,-Le couple i 


M> 6 OFF TIBER 1 3 6 OF 


1336 IF B(2)=8(I! THEN X 


726 IF fi(S)<6 THEH 746 


si bon- » G0SU8 1658 


F TIBER 1 4 6 RETURN 


=X»I 


736 IF H(S)=If>(a<S)) THE 


896 IF H=I AND Z=l THEH 


1898 DISP TBB(l8).-Non a 


1348 NEXT 2 


H 868 


DISP T0B<3);"Je n'ai iro 


utorisez- 6 KBIT 2 6 RET 


1358 IF X>=3 THEH F=3 6 


748 P(S)=(B<S-llt8(«(S)> 


uoe vk •;«(«) 8 GOSUB 1 


URN 


RETURN 


)/6<E(S)) 


858 


1188 ' noflbres auloriser 


1366 F«l 6 RETURN ■ 



COCHON QUI RIT 



La majorite des membres de la famine peut se servir de 

1'ordinateur familial: Papa fait de la programmation. 

Maman gere son budget et les grands pratiquent des 

jeux ou s'initient au Basic. Par contre, les petits sont 

tres souvent oublies. 

Ce programme tente de combler cette lacune et est 

une replique sur ecran du celebre "COCHON QUI RIT" 

qui a berce notre enfance. 

Les joueurs lancent le de a tour de role et doivent 

d'abord faire un 6 pour obtenir le corps du cochon. 

Pour obtenir les autres elements (4 pattes, 2 oreilles. 1 

oeil et la queue), il faut faire un AS. 

Le vainqueur est celui qui a termine le premier son 

cochon. 

Jean-Pierre OLIVIER 





! REM in COOKS 811! 51! m 

2 RBI n JEAN-PIERBE SOSES 23/18782 « 

2! I! = 1:02 = !:A! ■ 8:A2 -- 8 

II HOSE : SCSI! 28888 

« m 

5* SEN mil ENTREE DES SONS SES JKJEUBS 11 
18 VTAt 11: HIAB 1: 1NPU! 'SON mi JOUEIR N.!:'i 

Nil 
T 8 TO 21: HIJB 1: PRUT ' 

81 INVERSE : VIAB 21: STAB 2: PRM! Sit: SORSAl 

98 !NPU! -m tl! JOUEL»N.2: , :S2i 

m '.nasi ■. vim bi htab 22: prist m: normal 

158 TO 22: HIAS 1: PRINT ' 

2** SOSUB 18*88 

215 VT«S 23: HIAB 1: 1SPU1 "uHCEI VOIRE SE < F>E 

lURIl'lJDll 
214 VIAB 23: »!A! I: Pt!«! ' 

28? HI = HI (6 • SHI (1)1 ' ! 

2*S P = HI: MSB 788! 

m IF IN = 1 THE* 01 = 81 ( I: SOTS 21! 

22! IF JO! ( I i MS IM 

24! I = 5: SOSli! 5888 

258 SOSUB HM! 

in to ::: »w i: input "lance? voire oe ok 



1121 TO 23: HIAB 1: INVERSE : PR!«! !»!! M0RS«. 

: PRINT ■ A ■:: FLUSH : P81K7 'BASSE - ;: NORMAL 

: PRINT • 
W25 TO 21: HUB I: FOR ! = ! ID II: PR1H! CHRI 

I7K: HE!! I: FOR I = 1 10 1(18: KIT 
(131 SOTO (HI! 
(IS! RETBRN 
UN TO 22: HUB 1: PRUI Ml !7I: OH S2 SOSUB 

5!!e,52e8,5I88,5tee,55!8,5il!,5713,588!,598 



(HI 
(19! 
4999 
StM 



TIM; - ;JJII 


589? 


233 7TM 23: HT9B !: PS1HT ■ 


5188 




5118 


255 Ul = MI 11 1 SNJ !!!! 1 1 


5128 


239 P = JJ1: EBSUB 7188 




211 !F UK > 1 THEK 38! 


5125 


27! IF ]J: = 1 MEN l|:|ll 1:1 = 5: SOSUB 1! 


5138 


88: SOTO 251 




3M IF 02 = 1 THEM 32! 




318 !f 02 < > 8 IKES 358 




328 SOSUB !8!«8 




325 VTftB 23: HUB 1: INPUT -MM! WISE BE (RE 


5135 


nBD'jJua 




324 TO 22: HUB 1: PRMT • 


5199 


• 


5288 


327 JH2 = HI (1 1 R«0 (111 i 1 


5282 


326 P = JB2: SOSUB 7188 




338 IF ID2 = 1 1HEI D2 ■ D2 it: 5010 3(1 


5285 


335 IF 112 ( > 6 Ml 388 


5211 


3(1 I ■ 128: SOSUB 5888: S010 358 




351 SOSUB I8IM 




355 VIAB 23: HUB tl Wilt 'LAMCEI VOIRE K (RE 


5299 


TIIR«) - ;JJ21 


53N 


351 TO 23: KTAFJ 1: PRMT ■ 


5311 


357)12= MI lit RID (III 1 ! 


5399 


358 P = JJ2: SOSUB 788! 


318! 


311 IF IJ2 = 1 THEN A2 ■ 12 t 1:1 > 128: SOSUB 


5(11 


1181: 6010 358 




178 IF JJ2 < ) 1 THEN !72 




372 IF II = 8 THE! 288 


5(99 


375 IF 01 < ) 8 IHFJ 258 


551! 


338 IF 01 = t THEH 2M 


551! 


31! IF Dl > 1 IKEI 251 


3S2I 


(181 VIB6 22: HIA1 1: PRINT CHRI 171: 01 HI SOSUB 




3!88,52ie,5I88 > 5(88,5588,54ei,5711,5Bll,59l 


5531 


8 


55*1 



(M5 IF •! < ) 9 THEN 1899 
(111 IF Al ' 9 Ml 1121 



!F S2 < > 9 MS 1199 

IF A2 = 9 THEN (13! 

VISE 23: HUB 1: 1HVERSE : PRMT 1211: NORMAL 
: PRIST • « •;: FLASH : PRIHI - SA6N£ - ;: NORMAL 
: PRM! ' 

TO 21: HUB 1: FOR I = I TO 11: PRMT CHRI 
!7)i: SEH '.: F0S I - 1 TO 1888: SE1T 

S0I0 (8888 

REiofa 

END 

SES mil DESSM : CORPS mill 

HC0L0S= 3 

HFtOl I 1 28,91 10 I 1 38,9! TO I • 48,92 TO 
1 ' 13,92 TO I i £8,98 TO I 1 7E,9( TO 1 • 
85, III 

HPL0T TO I i 82,112 TO I l 70,114 TO I » 
72,110 TO I l 78,118 10 I > 15,111 10 I i 5 
1,117 TO I • 52,117 

HPL0I 10 I i 38,115 10 I t 31,11? TO I I 
29, II* TO I i 21,111 TO I t 32,188 TO 1 • 3 
1,112 TO I ♦ 32,81 10 I < 28,98 

RETURN 

REI mil BESSII : TETE mini 

HC0LOR= 1 

HPL0I I ' 28,111 10 I » 24,111 TO I • 32,1 
IB TO I i 34,112 10 I ♦ 32,91 10 I • 21,91 

HC0L0B= 3 

HP10I I t 21,111 10 I i 11,117 TO I i I, It 
5 TO 1 i 3,ll( 10 I ' 2,111 TO 1,112 TO I • 
1,188 TO I > 4,111 TO I I 1,99 10 I t 8,98 TO 
I 1 14,92 TO 1 • 14,9! TO I • 21,9! 10 I » 
28,91 

HP10T I > 2.1!( 10 I i 2,!!2 10 1 i 1,IH: 

HPL0T I 1 2,!8( TO I 1 ?,!!( 

REIUBN 

REI ••••• DESSM : OREILLE SAUCHE m 

HCOL0R= I: HPL0I 1 • 18,91 10 I ' 21,98 TO 
I i 22,8! 

HCOLORs 3 

HFL0T I I 28,91 10 I ' 17,92 !0 I 1 17,88 IC 
I t 18,84 10 I i 28,84 10 I t 28,84 10 I < 
22,98 10 I i 22,92 10 I l 21,91 

BEIUSI 

SES urn DESSIS : OREILLE 0ROIIE mil 

HPL0! I i 11,92 10 I I 11,88 to I i 11,84 10 
I • 17,87 

BEIUSI 

RES MM DESSM : 0E1L Mill 

HflOt I i 12,97 10 I I 13,91 10 I i 11,91 10 
I i 15,97 10 I • 14,9? 10 1 I 13,97 to I • 
12,9? 

REIUSN 

OEM mi OESSM : P1IIE SAUCHE mm 

KCOL0B= 1 

HPL01 I • 70,111 10 I i 72,118 10 I t 7t,I 
IB 10 1 • 41,111 

HC010R: I 

HPL0I I • 78,111 10 I I 71,118 10 I • ?3,1 
21 10 I i 74,121 10 I • 71,124 10 I • 71,12 
110 1 (19,13110 I 119,132 10 I » 18,132 



5599 
54M 
5418 



5199 
571! 
571! 
5721 



HRLOt 1 (48,132 10 1 '47,131 10 I ' 14,1 
32 10 H47.128 10 I (48,124 10 I 149,12 
2 

HftOI I i 19,122 10 t (47,118 10 I I 45,1 
14 TO I ( 14,114 TO I (44,118 TO I (14,11 
4 

RETURN 

SES him JESSM PATTE BIOHE Hum 

HPL0I I ' 47,113 10 1 (15,12! 10 I i 11,1 
21 10 I ( 44,124 10 I ( 12,138 TO ! (41,13 
8 TO I • 41,128 10 I ( 48,138 

HFLOT ! ( 18,138 10 I 1 42,122 10 I ( 41,1 
2! TO I • 58,111 

RETURN 

SEM mi DESSM PATIE AI SAUCHE him 

HC0L0fi= 8: HPL0! I I 28,117 10 I I 24,115 

HC0L0R: 3: HPL0I 1 ( 32,118 10 I ( 31,111 !8 
I ( 28,118 10 1(28,124 10 I (27,132 10 I 

(21,13110 1 122,132 

HPL0I 1122,132 10 1 (25,12110 1 (25,1 
21 10 I ( 23,11! 



RETURN 

1999 END 

7181 REM iiiMFFIOUS POINTS 0£ mm 

7111 SOSUi lltt: SOSUB Mil 

7121 OS ? SOSUB 7I4M,T2H,73M,T4M,73SN,7t» 

71)1 REISSN 

718! SOSUB 1518: REIUSS 

7281 SOSUB 1211: SOSUB -.':■■: RETURN 

7388 SOSUB 1288: SOSUB 4511: S0SU! 4888: RETURN 

'418 S0SVI 4268: SOSUB lilt! SOSUB ISM: SOSUI 

111!: RETURN 
7518 SOSUB 42!!: SOSUB 44!!: SOSUB 18!!: SOSUt 

ill!: SOSUB 15M: RETURN 
7118 SOSUB 1211: SOSUB 4388: SOSUB UK: SOSUB 

111!: SOSUB 17!!: SOSUB IS!!: RETURN 
I!!!! RES AFFICHA6E J0UEUR l.lmiii 
lllll V1AS 21: KtU 2: FLASH : PRIN1 Nil: NORMAL 

18828 VIA8 21: HIAB 22: RRMt N2I 
18138 REIURN 



5799 REIURN 


111!! RES mi IFFICHASE I0UEUR I.2HIH 


SUM SEM mi BESSII : PAIIE AV DROIT HHl 


lllll VIAB 21: HIAB 2: PRMT Nil 


5818 HPL01 I ( 25,118 10 I I 23,121 to ! I 22,1 


1112! VIAB 21: HIAB 22: FLASH : PRM! N2I: NORMAL 


23 10 I i 21,121 10 1 ( 19,128 IC I 1 21,12 




2 10 I • 21,114 


111!! REIURN 


389? SEIURH 


2IIII REM mil PRESENTATION mil 


5981 RES mil [ESSM : SUSUE mm 


28111 VIAB 9: HIAB 8: PRMT '111111111111111111 


591! HPL0T I ( 01,181 10 I I 9!,!ll 10 I t 94,1 


HI* 


80 10 I (98,184 10 I (81,111 TO I (92,11 


21128 VTA1 18: HIAB 8: PSIHI '•' 


4 


28131 VIAB 18: HIAB 11: FLASH : PRMI 'IE C0CH0 


5999 RETURN 


N OUT RIT" 


1881 RES mill DESSIS S4J DE mil 


21141 NORMAL 


1115 HCOL0R= I 


21858 VIAB II: HIAB 2B: PRM! "I" 


ill! HPL0T 128,38 '0 128,15 TO 135,15 10 133,38 


21848 VIAB 11: HIAB 3: PR1N! 'iihmhhhhih 


10 139,21 10 139,1! 10 123,11 10 121,15 


iitr 


1121 HPL01 135,15 10 139,11 


2H98 FOR. ! ■ 1 TO 2118: NEI! 


413! HPLOt 128,38 10 135,31 


2111! VIAB 23: HUB 1: ISPU1 'V0ULEI-VOUS LA RE 


4899 RE1URS 


CLE OU JEU '0/N>\»l 


41!! RES im EFFACEMES! 1S1ERIEUR DE HI 


21111 IF Rl ■ T MEN HOME : 6010 28588 


4185 HCOL0R= 8 


21128 IF 81 = "0' 1HES HOME : 6010 21138 


4118 FOR 1 -" 121 10 III 


2III8 SPEED= 188: PRM! 'CHA0UE 1DUEUR LASCE IE 


4128 FOR J ■ 14 10 29 


IE A TOUR OE ROLE" 


111! KRL0T I, J 


28148 PRINT "L0RS8UE SOS NOB CLI6S01E.' 


111! SEIt J: NEI! 1 


2III5 PRM! 


4199 REIURN 


28158 PRM! : PRM! 'POUR AFFICHEJ LE CORPS V0U 


4218 RES lllll IE 1 mil 


S DEVE! FAIRE - : PRM! 'UN l." 


121! HCOLORs Si HPL0! 123,18 10 121,18 10 124,1 


28155 PRMI 


9 10 123,19 


2811! PRM! "V0US AVE! ALURS LE 0ROI1 0E REJ0UE 


129! REIURN 


R." 


1311 RES im 0E 2 mil 


21115 PRM! 


III! HC0L0R= 3: HPLOI 123,22 10 121,22 10 124,2 


21171 PRM! : PRM! 'POUR AFFICHES LES AU1RES E 


1 10 123,23 


LESENIS 0U': PRIS] •COCHON, VOUS DEVE2 FAIR 


439! REIURN 


E 0ES 1." 


4488 REN mi DE 3 mi 


21175 PRIS! 


4111 HCOL0R= 3: HPLOI 123,21 10 124,21 10 121,2 


21181 PRM! 'A CHAOUE F0IS DUE VOUS FAIIES UN 1 


I 10 123,27 


VOUS': PRMI ■REIOUE!" 


It!! REIURN 


21185 PRM! : PRM! : PRM! 


1511 RES mil DE 4 mm 


2118? SPEEt= 255 


451! HC010«= 3: HPLOI 127,22 10 128,22 10 128,2 


21191 PRIS! : PRM! : INPUT 'POUR C0IMENCER IE 


3 10 127,23 


JEU — ) (REIUSS) ':RI 


4599 AEtURI 


2I2M VTI8 22: HTAJ 1: PRMI ' 


4411 REM HIM DE 5 mill 




4411 HCOL0R= 3: HPLOI 131,18 10 132,18 10 132,1 


21511 RETURN 


9 10 131,19 


18888 RES till TEST FIN PARIIE lllll 


4499 REIURN 


lllll VTIB 21: STAB II INPUT 'V0ULE! VOUS UNE A 


4711 REN Mill DE 4 mill 


U1RE PAR!IEI0/ir;RI 


471! HC0L0R= 3: HPL01 131,22 10 132,22 10 132,2 


1112! IF Rl 1 '0' IKES 1! 


3 10 131,23 
4799 REIURN 


lllll IF Rl ■ •!• IHER HOSE : IEI1 : HONE : VIAB 


12: HIAB 15: INVERSE : PRINT "A IIENIOf: NORIW. 


1811 HC0LOR= 3: HPLOI 131,21 10 132,21 10 132,2 


11815 SOI0 lllll 


7 10 131,2? 


lllll END ■ 



VALLEE MAUDITE 



LA VALLEE MAUDITE 

Un soir. rompu d'une longue journee de marche, vous 

decidez de passer la nuit dans cette auberge.que vous 

veniez juste de remarquer. Tout en mangeant le repas 

copieux que I'aubergiste venait de vous servir, vous 

surprenez une conversation; deux hommes parlent 

d'un tresor. Attire par la bonne odeur de I'or, vous 

ecoutez: 

"Dans cette vallee, a vingt kilometres seulement. il y a 

un chateau, il a appartenu a un vieux magicien. On 

raconte que cette vallee est maudite, personne n'en 

est jamais revenu..." 

Intrigue, vous decidez des I'aube de vous rendre a ce 

chateau... 

BUT DE fA V ENTURE. 

Vous devez parcourir les vingt kilometres vous sepa- 
rant du chateau, affronter ou non les differents mons- 
tres qui tentent de vous arreter. Puis, une fois arrive 
dans le chateau, tuer les gardes protegeant le coffret ; 
ouvrtr le coffre code et vous emparer de la couronne... 
II est a noter que la possession de cette couronne vous 
permettra de quitter sans encombre cette "maudite" 
vallee. car les monstres effrayes par la puissance 
magique qu'elle represente n'oseront plus se montrer... 




PRESENTATION DU PROGRAMME 



a) Sur la route. 

Vingt kilometres a parcourir. chaque kilometre, il y a 
deux chances sur trois pour qu'il y ait un monstre. lors- 
qu'un monstre attaque. trois solutions s'offre a vous: 

• Accepter le combat. 

Dana ce cas, vous vous battez centre le monstre, VOUS 
frappez toujours le premier. 

• Refuser l e combat. 

Vous decidez de fuir. vous courez tenement que vous 
vous retrouvez a trois kilometres en arriere. Attention, 
vous avez une chance sur trois d'etre vu !!, si vous etes 
vu, le monstre frappe le premier. 

• Decocher une fleche. 

Le monstre vise est immediatement detruit, seule- 
ment vous nedisposez que de trois f leches. Attention, 
un vampire ne peut pas etre detruit par une fleche. 

• Utiliser I'epe e ma gique, 

Seulement dans le cas ou vous I'avez, cette epee ne 
vous permet que de detruire un vampire. 

b) Dans le chateau. 

Une fois dans le chateau, vous devez affronter cinq a 
treize monstres pour parvenir au coffre, il vous faudra 
tous les tuer !! Vous disposez des memes actions pos- 
sibles que sur la route, a la seule difference que ia fuite 
vous meneraa trois kilometres du chateau, et qu'il vous 



faudra combattre de nouveau cinq a treize monstres 
en revenant au chateau. 

c ) Une fois devant le coffre. 
Vous avez r6ussi toutes les epreuves. vous etes devant 
le coffre et vous devez trouverlecode'<entre1 et 199). 
vous avez sept essais. Apres chaque essai. le coffre 
ensorcele vous dit si vous etes trop haut ou trop bas. 

- PRINCIPE DE RESOLUTION P ES COMBATS. 
Lorsque vous acceptez le combat, vous avez une 
chance sur quatre de rater le monstre t e'est votre tenta 
tive de coup) si vous reussissez a le toucher, le monstre 
recevra un coup plus ou moins fort suivant le nombre 
de points de vie que vous lui dterez.lmmedratement 
apres, pareil a vous. il tentera de vous toucher (une 
chance sur trois de vous manquer). le nombre de 
points de vie qu'il vous prendra varie suivant le type de 
monstre. 

-A VANT DE JQUER... 

Apres avoir rentrer le programme en PO, il est neces- 
saire d'initialiser les variables suivantes: 
VS = "FLECHE" 

A6 = 4 B2 = 3 
A7=5 B3 = 4 
A8 = 6 84 = 4 
A9 = 7 B5 = 5 
BO = 10 B6=6 
B1 =10 B7 = 7 



AOS = "LEZARD" 
A1S = "ZOMBIE" 
A2S - "ORQUE" 
A3S - "BANDIT" 
A4S - "COBRA" 
A5S = "DRAGON" 
B8S = "VAMPIRE" 
Faites ensuite "RUN". 



Jean-Yves BISCHOFF 




Type 


pdv 


Tentative 
de coup 


de de coup 


Vutnerab. au< armes 
nom r£q " eche 


Frequence d'appantion 
sur la route comrns monstrs 


Heros 


30pdv 


1 chance sur 
A de rater 


1 a 6 pdv 












Ldzard 


2a 5pdv 


t chance sur 
3 de rater 


1 a 3 pdv 


- 


non 


ou, 


3 pour rien 


1 chance sur 
6 d'apparaitre 


»«. 


2a6pdv 


1 chance sur 
3 de rater 


1 a 4 pdv 


oui 


non 


ou 


1 chance sur 
3 pour rien 


1 chance sur 
6 d'apparaitre 


Of que 


2 a 7 pdv 


1 chance sur 
3 de rater 


1 a 4 pdv 


oul 




ou, 


1 chance sur 
3 pour rien 


1 chance sur 
6 d'apparaitre 


Bandit 


2 a 8 pdv 


1 chance sur 
3 de rater 


i a 5 pdv 


oui 


non 


ou, 


t chance sur 
3 pour rien 


1 chance sur 
6 d'apparaitre 


Cobra 


2 a 11 pdv 


1 chance sur 
3 de rater 


1 a 6 pdv 


oui 


,,,.. 


oul 


1 chance sur 
3 pour rien 


1 chance sur 
6 d'apparaitre 


DraB „„ 


2 a 11 pdv 


1 chance sur 
3 de rater 


1 a 7 pdv 


OUI 


,=, 


ou; 


1 chance sur 
3 pour rien 


6 d'apparaitre 


Vampire 


20 pdv 


1 chance sur 
3 de rater 


1 a 5 pdv 


ou, 


ou, 


non 


1 chance sur 
3 pour rien 


1 chance sur 
9 d'apparaitre 



Tableau recapitulatif 



VSR: 46 PRE: 1526 

P8! 1526 STEPS 
1 SOTO 38 
28 J=6*iNT <8«RRKt 

y.m 

38 Wfi!T 18:PRT "LB 
JfflLLEE HB'JOiTE 

48 5=6:0=28:0=38:; 

=3:E=6:!=8: , (=8: 

H=8:0=8:6S8 128 
88 588 288:fi=!:B=3 

:&B2»1F Mi 

636 888:6010 56 

8 
86 IF '/=8;6SB 148: 

IF 0<8:Y=I:P8T 

"EHF1H LE CHflTE 

80" 
38 IF D<8 THE!! 266 
188 6010 68 
128 PST 'VOUS ftVEZ" 

it!" PDV":RET 
148 0=0-1: IF J=!;PR 

T "TOUT EST COL 

HE":RET 
158 SET 
188 SOTO 88 
268 PPT Di" KK 0U C 

HBTEfiU":RET 
228 IF OBlRET 
248 PPT "VOUS ETES 

H0RT!!'.":EH0 
268 IF H=8:fl=5:B='): 

6S8 28:H=.':H=i 



ppt "ehcose";h; 


V)1"S":S0T0 688 


"(KWSTffi'S'IF 


555 6S8 888 


I018PR1 "'■: 


568 PRT "IJH "iUSl" 


PF.T" "iIF N>6 


SVEC"!6l" P0V" 


THEN 555 


588 PST 'C0HBBT":FI 


PP! "SRBVO.TO'JS 


=KEV:IFFt="" T 


K0RTS W0ICI 


HEH 588 


LE COFFRE" 


561 IF Ft="F" THEH 


E=7:S=IHT (RflHi 


515 


»288i 


582 IF F!="H";fi=l:8 


IMP "QUEL EST L 


=3:688 28:6010 


E COCE'.P 


728 


IF N THEH 466 


565 IF Fi=T;IF0= 


IF P«0,:PRT "IPC 


I!IF S=1;PRT Ul 


P 688":60T0 488 


i" 0ETRUIT":S=8 


PP.! 'TROP HflLIT" 


: 0=6:6010 658 


p=S-i:PST 'PLUS 


586 IF Fl«"0" THEH 


0UE";E!" ESSSI 


588 


S": IF R>6 THEH 


686 fi=l:B=4:6S8 26: 


326 


IF J=4;PRT "PRT 


PRT "LE COFFRE 


E!":60T0 638 


H.EST P8S OUVER 


628 PRT "ET RH86IT0 


T,";"UHE TR8PPE 


UCHE":8=l:8=E:6 


S.OUVEEM!" 


S8 28:fi=6-J 


SOTO 246 


638 PRT "POV ■!!»!" 


PRT "Lfl COUROHH 


:":6:IF6)8TH 


EM VOUS ETES R 


EH 688 


ICHE!":EN0 


648 PRT "C00IC LE K 


IF S=l THEH 588 


0HSTRE!!":1FS= 


I=V! 


i;s=e 


IF H)2:)=V!*"S" 




IF »8;PRT "TCH 


SB 26 


KIIIMHIKI 


651 IF J=3:PRT "OH 


"PLUS SUE"; IT 


ELIXIR DE VIE!" 


"iHBOIO 648 


:C=C*7:6SB 128 


PRT "PLUS 0E "; 


653 IF 0=816=1:8=15 



:6SB 28:IFJ=T; 
PRT "EPEE BASIS 
UE":0=1 

655 8=1:6=8:686 28: 
IF I=8;!F J=5!P 
RT "L.fiHIIEftU OE 
F0RCE":E=E*2:I 
=1 

666 60TO 88 

688 fi=|:8=3:6SB 28: 
IF J=2iPRT "IL 
RSTE":S0T0 688 

768 PRT "0UILLE'":fi 
=l:B=X:ES8 28:0 
=C-J:6SB 126:68 
6 228:6010 586 

728 IF J>3:PRT "OUF 
,REUSSI":0=0»3: 
S=8:H=6:Y=e:60" 
768 

748 PRT "OfifflEO.VU! 
!":60TO 688 

768 IF 0)28:0=28 

786 SOTO 88 

888 fl=l:B=9:SS8 28: 
IF J=°;U!=S8!:S 
=28:X=5:S=1:RET 

885 fi=8:8=6:6SB 28: 
US=flf(J):H=J:fl= 
l:6=R!H*12):6Se 
28:X=J 

818 B=2:8=fl<Kt6>:6$ 
8 28:G=J:RET 

<•« VBR LIST " 



Type 


Frequence 


Consequence 


Particularity 


Anneau de 


1 chance sur 9 


Fait passer 
le de du coup 
du heros 
a 1 a 8 pdv 


Apparait une 
seule tois par 

partie ... 


Elixir de 
vie 


1 chance sur 9 
de I'avoir 


Donne 
+ 7 pdv 




£pee 
magique 


1 chance sur 15 
de I'avoir 


Permet 
de delruire 
un vampire d'un 
seut coup 


Utilisablequ'une 
seule tois 


Tableau des equipements supplementaires 


Touches 


Action 


Consequences 


Particulate 


E 


Acceptation 
du combat 


Combat " 




B 


Fuite 


1 chance sur 3 
d'etre vu 


On recule de 
3 km I 


E 


Tir d'une 
fleche 


Monstre 
detruit. 


On a seule men 1 
3 (leches 


B 


Utilisation 
d'une epee 
magique 


Vampire 
detruit! 


UtiNsable qu'uno 
seule (ois et 
seulement pour 
un vamptre 




VBS: 46 PRS 



TIERCE 



N'hesitez pas a saisir ce long listing, le resultat est sat- 
sissant : vous pouvez jouer au tierce sans bouger de 
voire fauteuil et essayer de trouver ta bonne solution 
en encourageant les chevaux que vous avez choisis. 
Esperons que votre favori sautera convenablement les 
haies! 

Frederic MIRAN 



i scu»i«e sc2j-ieeo scoi-ieee sc<4>-ioee 




• DOTCOM 

3 REM CHEVP*. 3 GfOC 

a co-3 
4228 oorcseae 



429fl 

j . i a 

131 1 

:■:•_■; 
c?,<2 
9W3 



REM— 

P0ttI224.PC<4/,34 f 

COM 

!F!i!;*iTH£MOrt#-j<ii 

1FC&-3TMENWI-M3* 
IF<.V'«Tr*EHVt«.«4I 



' PBIH1 



J F0R0-1TQ38O8 NEXT 



>-l 



5898 REH-CflLCU. LES WINS EI t€S PERTES 



is print 


rr 








» 






ii prim: 


JT 








S 8TIERCE D'RUTEUlLa r «F 








































i? -vim 








..■ : -'.-<■■ 
























23 PRINT 
















Z3 PSW1 








. .■ • ; ■ 


rmT 














23 PRINT 


■] 






23 print 


) 








llll 






31 PRINT 


TIM 






33 3ETP.* 


: F - 1 - 






W IFFtfO-O'FHENSS 




































£8 PRJN1 


tt*u 


vous introduce; le mousse le joueurs 



COMMODORE 64 



rV- --■:■■■ ..«:-*•. toli L-iJftDlNKTEUS VOU* hFFIChE 1 
?« PRINT" RHPF-ORT tt CHF«3U£ CHEVflL- 

n priht' chfwue joijeur choisit on cheval et ■ 

m ^""'iiMMiimi 1 " 1 ""* W MISE '" 

^■y 'JETA* :?S*3--THE!--iH3 

198 P*IKT\"r 

119 PRlMT- m a> MH3 M8« DE JQUEURSl2-4.?" 

128 OETS* 

125 AJ.-VSL-.-J, 

130 IFFSiC20RFO4TMEW29 

131 ooTosooe 

136 REM— 



13? REM- 
ISS REM— 



------ :,-;-.-■ 



139 GOT07068 
ISO OKI »1HT<13WKDIL»*1 
145 CH<2>-iNm5«RHIKt>}+l 
158 Cm3>*IMTtt3MND(l»*] 
153 OK4>-JNTC15*RMD<l»*l 
139 CC=9 Cliq;.0.CWi'=9 -CM'. 3; 

1*8 print -:r 



■;CWtl> 
)MI»»>»tiM»»»M»»»MMp>MJJi<TP£ 1 

>MM*«**«»»»|t»»»»»»l " ,CX '.2' 

"1 RtMtMHMnMfWMHCCKrRe 1 

tmam mmmmmmmwiCHOi 

")»»k»»»»»*»»»»»»**»»»*«uhm;onTPE 1 

)»»II>F»I»IIII»>MI ,i.H 4; 
)>»*»»»»*»»»»i»MM»l»«l»»i:CHTPE 1 



--CHOIX £U EwEVfiL El I 



378 PRINT Wi',PU,",CMEVhL-- 

zn aerw 

.\-,*L'.A*j 
277 IFJi;: :tORJI2>4THEH2?2 

IHSE ■- scu);m- 

i&i n-fuTtinij 

233 irflM.- .^i.i£r:l.i .^i... ., i^tN^irir-Trr OGT0238 
239 PRINT"-!". P2*. -,, -t ■-■. 
1ETH* 
a» al<Fi*, 
,-.-; .-..-■: :0Rii:.--4TnEHiii*j 
319 PRWI"mSe?t9-">SCt2>, 'j ■ 
326 IMF-urn J '.2> 
336 IRH<23 ■■ HEHPRIMT-TTT 0010319 

Me iFpis-CTHJiwiwe 

356 PRIH."*",R3*,-,CHEVHL>" 
353 DETM 

365 IFJ3XC10R43334THEH3S3 
J78 PRIHT'niSE - 8- ■■ ■ .' . . 
. PUTHIO) 

339 IFHU3j-:eORMi<3jys'.-:i/lHElJ(-t-.-IN;"-nT' GGf&3?0 

409 IFFC-OTHEHiaOe 

483 PRINT"*". P4«.",C«EVP4.?" 

483 OETR* 

41B J4?.«VPL(M) 

413 IFJ4J!<irjRJ4;04THEN493 

429 PSIMT-nlSe>!9--',SC'.4>, 'J- 

439 IMPUTKK4) 

449 IFni<4K80RMI'4,>iC(4,THEtlPRnir-Trr G0T0429 

397 REM— 



-TEMRIK— 



























1938 PRINT" 












1949 PRINT" 












1939 PRINT'' 












1969 PRIHT" 


■ 




■ 




a 




























1936 PRIHT" ■ 
























1119 PRINT" ■ 
















■ 




■ 


i" 



1139 REH— 



— CHEVW. I- 



1299 IFCC-4TMEN3e9e 

12B1 F0fiO-lT(3tC»79 NEZT 

1J92 IFCntlj.iTMElll399 

1*83 PGKEI184»PC( Ij-32 f0» fc55J76*PC. 1 1 . 1 

i2d^ rj':u/'[nr";»&NU(iJ3»i 

1210 IFIrO ;/.- t (H£HPL' 1 .pr.'.U»] 

I22B IFPCMj«ieTHENPC(WPClI'-" M*V,, 

1238 [FPE»tll«4*P«Uj-ie3THEM3We 

1249 IFPEEI'^lie*-Pfl.-->2!MEN48«e 

1239 KjKElia4.PC.ly, 34 PCiKE53376*PC'. J), 1 



1297 REM— 



-CHEVffl. 2— 



1399 !FCM(2>"lTHEH14e9 

1392 POKEllM^PCiij.ji Hj.t^416*PC.<2 J .l 

1393 X<2>-IMT(34RMD<1;J-I 
1319 IFDC-.2 ^2rHEMPf,..2,.Pt(2>ti 

1328 IFPC[2j-4eTHei«rC'2j-PC'2/.t<19M9 f .i 
1339 IFPEEK'.il44.PC'-2^-l02rnEII318O 
1349 IFPEEK'.II44*PC(i^-3aTH£IKI0a 
1339 P0KEH44-.PC(2>,94'P0KE354I6+PC(2>,1 

1-.07 txC 1 "^ - 



139? KEI1— 



1499 IFCnC3>-lTHEIJ1399 

14B2 PWElie«tPC'.3J.32 PWE55456«PC'3>, I 

1483 DC<3XHT(9«RKDCi;>4i 

141B IFKU/^2IHei(PC(3J-PCOJ*l 

1428 IWC(3)»*gTHEt#?C(3j-pct3jt(i 1w*4uj; 

;4j d IFPEEK(1I&4*PC: i^«I92rHEN3i*e 

1440 lFPEEK'.liy4-PC'ij,-'>2THEH4208 

1430 PrjKEllB4tPCf3,.94. P0K£W4S6tfC<3j,l 



1529 
133u 

154a 

1559 
1560 



i REM— 

) IFCJH4>»1THEN1299 

! POkE1224.PCs4<.32 P0>E3543t;-'PC(4j.I 

s [ict4j = nirt5»Ri([Ki/)*i 

! IFDC(4»2THEIJPtC4-=Pt<4.-l 

IFPC(4)-49THtllPC'.4j=Pf 4j-C 16449?^ 
IFPEEKU224*Ftv4., = l.j2THEIi.j3y« 

I f r Ei' ■ 1 22 J + PC ■•:,.. s32ihEH-s j«0 
P0KE1224-pi;i<>,3« Pi>Eb54jo*PC<4».l 

uuTQUya 



5199 
3119 
5129 



52 iS 

5219 
5229 
52ij 
5240 
5245 
5230 
3255 
5260 
5«.'6S 
52 &7 
527C 
5275 
5269 
5397 

533-3 



IFCLi>irHENRft-CMH> 
IFC0-2If€NR>l»CM'.2J 
1 F t 0-3 TM£NPrt-CM< 3 J 
IFC0»4THEMWf=Cm4> 
IP.iJl.-CCiTHEHiC'; 1 J=3Ct 1^ •«!( I >•** 
: ; I2X-C 3THEHSC(2J'SCU'*nl<2 '•'- 
;-;/.= jr-i-.i.. ■-■■: :. ■•■:■ .. .;-, 

IF J-l-.s ,.3Ih4irft!,<4 1-SC-.4J. «I-4j»R_H 
IFJlXOCSTKHECCD-SCdJ-flKl) 

I F J2*'.X<ii NEN3C< 2 )»SC( 2 j -«I '. 2> 
IFJ3^CCGTHEI(iC<i^=3C<3'-*fI<3J 
IF J4;:OC0THEKSC< 4 J *SC< 4 > -Ml (4 J 
PCiU=9<Pti2;>e Pi.'.jj-0 PC<4j-0 

REM ftfficrtftt ngj SCORES 



REM— 
PRINT"^- 



•.Pl»," 



PRINT"»T,P2«,- .__ 

IFP-:.=2Tr-DI3265 
PRINT"*", P„'J, SCORE 

IFk.-:=;Tk£h5265 
PRIKI-«";P4*;- SCORE ' 
PRMT-a 



-\:.\ i 



1'0""U*£ FWIRE" 



MOM I€S F 



-:-..--.- 



C-EN — 



REM-- 



~PflS8fi06 DE-i HHIEi 



S REM CHEVFIL 1 

3 CT<l»=»INTU5«RND<lJJtl 

— PFtSSE 



BS4i) 

6959 

6060 



3899 
3199 

3199 



3120 
3123 
3138 

3199 



lFCT>:i)-l TMEI(PO'l/=Pi. f ii'l Pufctll94-H,..j,.42 P0f-t55^^K l,.l LI1 1; = 1 

CC-CC*1 

GOTO 1299 

ftEK CHEVPt 2 

CT(2J = iNTa5*RNQU)>*J 

REM PFiSSE 

IFCT<2>>lTHEtJPC'.2^=PC'.2v*l 00701359 

REF1 — ToriBE 

:. ; -;t-:<:j = 1 rhEtih-C'.2.'=P>--.i-> + l P0KE1144'Pl<2j.42 P0KE55416'PCt2>,l CH'.2>=1 



OETfii ifpi*=- -itciireee 

IF n (^J."0'THEN52?9 

clr scu>*ieee sc.2/-ii« 
red 

REM— 

REM— 

PR INT ".T 

PR1HI MIC JEW : . tRE '■ K 

INPUTP1* 

PRINT-jftOOyEUR 2-'.'0TR£ NOM ».V. 

IHPUTP2i 

IFFIK-2TMEN137 

PRIUT"K«J01.€iJR JjVOTRE NOM S.V, 

INPUTP3* 

IFF«.3TMEM13? 

PRINT-jtf&JQUei.* 4, VOIRE t«1 S.V. 

IHP0TP4* 

IF«C*4THEN[3r 



I sJ-«tE'«CONIU«Jt- 



>■-:■-■ ■-■<-' :-j7i:.ii.--j 



O 



I REM -ZHOiy. LES MOMS— 



3 PtM— 



-CMEVF4. 3 



d IFCTC3»ITHEMPi:'.J/=PCi i.--l 0O701459 

9 REM fOMBE — 

B IFCTC3>-1 TM£l4PCO)BpCt3)-H POKE1184+PC<3>,42 P0KE35436+PCCj 
S CC-CC*1 
S 0OT0129© 

S REM CHEVFIL 3 

3 CT(4)-IHT!1?»RNIH1^>*1 

t REM PftSSE 



3 IFCT(4/*1 THEHPC.4j-PC.4j-1 P0KE1224»pi...4^ . -12 P'J>.E55496»FC4 
S COCC'l 
i GOTO 1299 

CKEVNU 1 &P.0NE- 

tti).94 r 

4020 60T05699 



7219 

r^u 
7230 
7240 
T25.J 
7380 
7310 



P510 

.-:io 

7339 
7549 
7550 



iJ=IHTi2.j4RHI)(l»*l 

FORW=1TOO 

REFOINU 

NE9CTH 

RESTORE 

0-INT(2e««HTKm*l < 

FORM' I TOO 

REflflMZJ 

NEXTU 

IFN2»=N1*TMENREST0RE 00t07ieW 

RESTORE 

0=lMTii0»RNHU }j+i 

FORU-ITOO 

REWDH3I 

HEXIM 

IFlG**iniijF:l(jt=Ji t ITH£liR£STORE t-0 TO 7288 

RESTORE 

0=Iin-.iO»RMD<I»*l 

FORH-irOu 

REftOtfti 

NEXTH 

IFrM*=nifORH4i-n i -ii.»:i4i=;<iitntliPfiIu*-'t 00107300 

RESTORE 00T01 40 

WTHFETI1 BIQUET.IDERL UU 0SZ0H.F1LS DO VENT.FLECHE ELEUE 

mTftROSOWMJE.LirnjE BIO HORiE 

E^'Z^f1'?T U f*^ : I f^^J "^r . L r ' " - : '■ ■■■- '■ - ; ' ■■---...i" 




CMEvmL a 



SOUS-MARIN 



Peut-on avoir le mal de mer quand, a la tete d'un 
superbe navire de guerre, on chasse les sous-marins 

ennemis dans le Pacifique ? 

Deplacez votre navire avec les touches du clavier et 
larguez vos torpilles avec Z et X. La partie dure 2 minu- 
tes et vous gagnez un bonus de 30 secondes pour 30 
sous-marins coules. 

Didier CAPDEVIELLE 



"Sfi rjl. ■090298" SC -8 



19 REM SUBMflRINE 

99 00103888 

199 P0KE36863.233PW:£36B79,3 PRINT"^. 

110 F0RRl-7f)12fU.'cj:i ri>EMl.5 P0KER1 *38729. 3-HEKT 

-113 P0hEfl2,42 POKER2*30729.2 NEXT 
139 F0RFt3»?799T0?811 PW.ER3- jw/c-j, I nE/,1 ;■;-■<■ fj-j v=?soe P0KEX.8 POKEV. 1 

: NEXT F0RFI5-3804 1 1036984 PuK E*5 . ' 



i POKE38840.fl F0PP.«*3833*r03e&l? P0KEH4,; 



FQPFI6-1T03 P0KE36374.245 F0RFI7-1 70100 HEXTft? POKE360?4,0 F0RFI8- 



FTll->TJITHEN6008 



T 

158 P0KE36878 

1TO180 

168 NEXTRB NEXTP6 C-9I20 

178 PRlNT-a"ml>*(TIt.3.2 

173 P0KEC.6 

188 OETflt 

139 iFfl«""a"niENie88 

289 IFP,»- M »rrHEN150U 

218 1FH*-"Z"RNDW-97KEHU«1 Wl-X-43 P0KE141.6 

;:20 I c FtC VFiNUZ-OTHEHZ-l 21-X+46 P0KE2I -6 

■,'.2'j IFZ-irjPH-irHtMF-.ji!E36Bi'?.245 

^2? IFZ-OMNI.WeTHE"PQKE36877.9 

.(30 IFW-IftHIiHI>e973THEtW9 P0KEW1 -22. 32 P0KEN1. 32 Nl-X*43 

.'48 IF2«lftNDZl^y0;5THEI'Z-9 pgk.t21.j2 Puh.ti'l -22- 32 ZI«V*43 

239 IFW-irHEN141"Wl-2i fij'Eui,-, F-mKcUI-22,32 

260 1FZ-1IHENZ1-Z1.22 P&XEZ1.6 P0KEZ1-22.32 

279 IFF-lP.NEFlJ6036rHtnl--L) P0V.EM.i2 P0KEF1-I-32 

273 IFF-2P*tLFI':e8?7THENF-0 P0KEF1.32 P0KEFl*l,32 

288 IFF-IIHENFI-FIM P'jKEH , J POt.EFl-1.2 PUV.LF 1-2, 32 O'JfO308 

285 IFF-2IHENF1-F1-1 PWEF1.2 P0KEF1-1.J fr.irEH -2 . J2 GOrOj^y 

299 lFFO10RFO2THENF"INT<RNTJtl J«I8; ihf*i ihwh-w/6 

Z9Z IFF-2THENFI-B036 

398 IFO-lP.NDOi,3OJOrHEIni--0 P0KS01<33 POKECI-1.32 

383 IFG-2P.NU0K88I1THEI1&-B P0TE01.J2 PQKtUt'l.Jt 

319 IFO-lTHEMOl-01-1 Ptn-Lul-J POfEOI-1.2 POKEG1-2, 32 OOT0338 

315 lFO'2rnt"01=01-l PWE01.2 ff.ihtOIM.i PijKEOl -2. 32 0010330 

328 IFGOlOROt/ZTMtmj-INHWiII'. 1 '«10j IFo-l rKEN01-e819 

325 1FO-2TNEI*01-S039 

359 IFH-l»*LMl>/36-JFHENM-0 PQVEN1 ,32 POKEHI-l- J2 

335 IFH-2»<LHl';/346tMtNM«B PUKEH1.J2 POKEMI ♦! , 32 

368 IFH-17HENHI=Hl-2 PQKEH1.J PljfEHl-1,2 PQKEM1-2. 32 P0KEH1- J. 32 00luj38 

363 IFH-2TNENH1-HI-2 H>tHl.* H,iL"l'|.J Fuhf.Ml'2. 32 POkEHl »3. 32 00T0399 

379 IFNt>10RH'.>2TKEIIHM, ( f.Pf/I,'l/M8i I*-H-l IHEHNW&44 

373 IFH-2THEtlHl-?963 

390 II -I-IMNLIl. ,' C ','IHEin-0 POKE II. 32 P0KEII-1.32 

335 IFI-2PJIDlKi'oeeTHtM'J POKE 1 1-32 POKEH'1,32 

400 IFI-irHEHIl-ll-2 P'jtan.j p.^.tl 1-1.2 PUVL11-2.32 PfJhEII-3,32 0070438 

493 tFI-2IHEIH|.|l-2 PUKtIl.2 PIJKt I I • 1 . J PUV-tll'2.32 P0K-I1-.W2 WlCMftl 

410 lFK>lQPl';>2IHLNl«lH['MI[j:l'*iej fF 1 = 1 IHENl 1-78/B 

413 IF I -2 THEN 1 1-7893 

439 IFT^lFt«)HI"]10RMl«Il-10(WIi>]i+ITHEN008UB4888 S4>«C*l« 

435 IFU-IHHIiWl-i-tH>WI=nl-li..Piri HI-: in;: i-:.M» -,r.-iC*15 

•LUj JPUI-lHtJDUl =L.1IJF--N1 ' J |-U..(-Wl-.r,l.|lHtr(i/ J ,ijlMIJ.) 1 ) 

■M5 IF'W- li-rdLiil -- 1- lOS-ui ^ 1 -lijh^i-M .j in (.in,., ui-nj^s ■ 

438 IFZ-lF\HEJl=Fli.>RZl-Fl-10P21>Fl«lTHEIIO0SOB4380 SC-SC-25 

433 IF2-IFlNIlZl-OIUkZ1^01-!OP21-Ul.| lHEHWiUl'.430O iC-SC*28 

4*8 [PZ-tAHSZI H10R . HI 10R21 «+lTJ€H0OBUB45« FJC-SC+15 

465 lF2-IfiMB2l-Il(JPil-II-10R21*ll.llMtr« J 'j- i Ui-4-. 1 u. J M..ii>|u 
398 IFC>8J49THEM7JI- ,, e6e23e-' 




698 0OT01?O 

1009 IFX>??94IHEiry«x K-x-l POKEj(,0 POf.EV.l PQKSVM.M 

1818 0OI0223 

1308 IFVC789/7HEN rt .v Y-V*l P0hE>: ■>.' I •>< L . . 1 POKE -1,« 

1310 0010223 

■»■"'" '"" ■'■■'■■■ I " ' "l-tUl. I l,„l.u[. „,-„..- H,M,| .,.,.-.,,.. | H | .. , , 

4tMu PuVLUl-Jii.'2..i.,' il-u ui-::.4.j F-:tTURII 

4".1«' P'H I '- .■. 1 ■,- ■..-. .].. | ,j|.-M .[ lu-,,., I.L..I •■■■>,[ 

■rjla ."..!.-;. .,.,,.-., 2-0 ZI-V449 RETURIt 

■>->'■' i " ' . ■ i ■ :;,^j ...LC 

■■•:■' -■ ■:■ • .-: -iilOnOn F-uUI.*'Lt»:iI»25* J y«j nfcAl 

30»8 FORL-81055 -L.(H iuILm.l.F NEXT 

',y,L.i IjmIH.J. ,. .-. ['.,...'/... ll-l.i.i. ;| ,[.. l.^.,24,.40.2»».?*.2S2.24c) 

3840 Dfl1fl3.3-3, 127. 2-53. 21 J. 233. 12.', Ua.UB. 128.234,233. 1,-1-233.234 

'■■»''• , !■ - ■■: •.■■■■.-.■ .:. l.J-.M. 1, . 1. ...i,., :l -I,;.. I ,, , „ . ., . ,, . ,, n..i ,,„. ,.. .. ,).,..,. I 

306B G0T01 08 

"■'■ ■■'■-•>■ ' ■■■ ■ -.-■ ■>; ' *•;■><■ ;-i>:-»iiit*,. ..n -■ li .i ,-hiiium. .■ 

6002 fkllll-milfi RfcO'iilS "C-0I2O 

coio PfllKT'MHl.SCORI "8D PRIMI 'wwinptt. i POUR R8J0U6R' 
6820 otrm IFM""TmEHS820 
6823 IFni-"0"7HEN0010189 
6030 00r«029 



METEORE 



En Tan 425 de la Nouvelle Ere. apres le Grand Cham- 
bardement, le vieil empire galactique a eclate en deux 
empires rivaux qui veulent etendre leur supprematie 
sur tout 1'Univers: les Kltniens (gouvernes par le roi 
Klinic IV) et les Huxons (issus de la grande dynastie 
Huxus d"Andromede). L'Univers entier est embrase par 
une guerre interminable qui oppose les deux royau- 
mes. Les forces en presence sont identiques et aucun 
ne parait pouvoir I'emporter... 

Le vieux mage Polunius a predi en 432 NE. que celui 
qui se rendrait maitre de Sol. le berceau originel de 
1'humanite, ne tarderait pas a dominer I'Univers et a 
refonder un nouvel empire galactique encore plus 
puissant que le precedent- 
Nous sommes en 437 N.E. Toutes les forces sont pre- 
sentes autourdu systeme solaire. Les lasers illuminent 
le vide obscur. les boucliers thermiques sont chauffes 
a blanc. 

Depuis deux mois (temps sideral de Vega), les vais- 
seaux se sont concentres autour de Saturne. place 
strategique avant I'invasion de I'antique terre. Les 
anneaux des asteroVdes sont Tendroit ideal pour cette 
guerilla intersiderale. 



Vous allez parttciper a cette grande conquete, et votre 
action fera peut-etre pencher les forces en presence 
en faveur de votre camp. 

Le jeu sejoue adeux.chacun representant un campet 
possedant un vaisseau. Tant que vous possedez de 
I'energie. vos boucliers thermiques vous protegent 
des tirs laser de I'adversaire. Des boules d'energie 
derivent entre les asteroVdes. Vous pouvez augmenter 
votre energie en vous emparant de ces boules. Atten- 
tion, tout tir depense de I'energie. Soyez done attentif 
a ne pas trop presser le bouton de votre manette de 
jeux. A chaque nouvelle boule d'energie. des aste- 
roVdes disparaissent et il devient de plus en plus diffi- 
cile de se cacher parmi les blocs de pierre. 
Le programme est ecrit en basic, plus huit sous- 
programmes en assembleur pour les tirs laser, chacun 
representant une direction. Ces sous-programmes 
sont appeles par la fonction EXEC apres la mise par 
POKE en 42 000 et 42 001 de I'adresse du depart du tir. 
Les sous-programmes mettent en 42002 et 42003 
I'adresse de I'objet touche (astero'ide, adversaire ou 
boule d'energie). 

Ces sous-programmes servent aussi a I'explosion 
d'une des deux fusees en fin de partie ou d'une boule 
d'energie si vous tirezdessus. Pour cela, on modifie par 
POKE en 40 237 la boucle de temporisation des tirs et 
on fait executer tous les sous-programmes les uns 
apres les autres. 

Rene NICOUD 



ia GOToseeee 

28 6EK DEPLaCEKEXT BOULE I> - £HEPCIE 

30 CW6 

48 IF SCBEEH'UB'.C'e,'.; H i]27 'ht\ . . _ 

TEL<8>,C<e>:t01.[>e.;-:PK'IN-i:HSI'32i:C i e-'»C 

<8>*i:G0TD68 

58 IF INT(RMC.«3> = dTMEK ^-1UF SCREEN-. >8 

>*l,C<8>>-!27 THEN 58 ELSE 55 

53 «--J s IF SCREE*' L.8j-1.C<8>'.127ThEN 5 

8 

55 LOC«T£X<0>.C<0<:COLC'S;.6:PfcINT-'i=I 32J 

jj LOCftTEL(8'.:i8',e:C0LOP*.7:PLH. -A1TIL 

13O*DO-:PHI«TCftt l 0r 

78 FCRI-IT02MF LCI ■-L«8. AND C<I>*Cv8> 

THE* E<I'-E'. I ■>ie8:C03U66ee:t«EXTI 

38 IF C<0>-2! THEN L0C«TEL<e>iC(e>lC0L0R 

.^^ii-:-'! ?= :; ■:•■--;:. ■:•■-!;: ,•: - 

108 REM 0EPL1CE«EF*T DEi JOUEUftS 

118 c*-cn*i 

128 D-STlCKtCK-1 >:IF D=8 THEM 168 

138 LOCfiT£L'-Cn.,Ci:t1t:C0LOP.*tPPmTCMP*i 

32)tH-L<cm<i*c<cm 

148 ON D COSUB 518.528,538,548,558.566,5 

78,588: IF SCREEH'H ~K>. C<CH> >=127 OP SCP 

EEN<L<Cn>.C(Cn->;.-42 THEN L<C1>'H: Carli = I 

158 PLAY-T3AeLI02C-OPEf1!-:C0L0PCn,6:LOCflT 

EL<CH>.C<C«)JPRmTtR»<D, 

168 IF L<CH)-H8J AND C(CH>-C<8> THEH E' 

C.t>-E<Cn>*188:C0SiJ86ea:C>8' = !:L<e;«ia:CJ 

SU02M 

178 IF STRIC<Cn-l»>-l THEN E(CH>=E C<1 '-2 

8:COSU8688:GOT01B88 

188 IF CH-1 THEN 118 ELSE 38 

185 END 

198 REH ON ENLEvE DEU/ rtETEOPITES 

288 IF HE<-9 THEN PETUPN 

283 FORI-1 TO 2 

218 RESTORE :XK=KNC>458*1 : F0PJ= 1 TO tfXJPE 

flOLiPEflDCiNEZTJ 

228 IF SCPEEN<L,C>=32 THEN PE6DL. C : C0T02 

28 ELSE C0LQP,6:L0Ct.T£L.C:PPIHTCHPf'32i: 

ne-he-1 

23B NEXT I 

248 RETURN 

388 REM NOUVELLE P&SITIOm JOUEUP 

31B CCCH)"C<Cn>-l:RETURN 

328 C(C«>-C:Cfl>-l:L'C«i=L'C»1'*l:RETUPN 

338 L<CH>«L<Cn>M:PETURN 

548 C<Clt)=C.tC«)*l:L'Cnj = L'CB^*l: RETURN 

338 C<CW>-C<Cr.i*l:fiETURM 

568 C(CM)-C<C11>*l:L'Cn> = L':CBj-l: RETURN 

378 L(CN'«L'Cn>-l:PETURN 

388 C<C".>*CfCM>-]iL'-CI1J = L(CH'-:ifcETUJ>M 

688 BE" AFFICHttGE EHERCIE 

618 COLOR1,8:LOC«TE35,4:PRINTE'I • 

628 COLORS. 8= L0CSTE3S, 3: PRINTED > 

638 IF E(l><=8 OP E'2j'-B THEN 1 8888 

648 RETURN 

1888 »E« TIP 

1818 PLfiY-AI5T3L4a5C/0D0[>0LOD0-iC0L0Pl 

1813 ON D G0SUB1188. 1280, 1388. 1488, 1388. 

1688, 1788,1388 

1838 YT-INT<DD'320'*i:XT«<[)[t-IHT<[>&'"320> 

*328)rlG048 

1848 IF XT-L(8> flNC- YT=C<6' THEN PLCVT1 

L502&OREnlFft-:COLOP.6tLOChTEL'8/,C' 3,: PR 

[trTCHM<32MM>>163e4*t.<0>*C<S>*3SfH : 

QSUB 1908! G0SU82888 ::'£"! :L'8.-*li:ClT-.3a 

1838 FORI»IT02=IF XT-Li I) PNCj YT»C'I/ TH 

ZM PJ.«Y*ft8T3LI8043[l_»SOF&L14l1IRELSBC<e.'EM 



:"HL30PEDODO-:E' !:■ = £< 1>-286:&0SUB686 
1S33 NEXT I " 
1068 00T0188 

ie?e tut, 

1 188 PEM 

1110 aD'16333-*!. :Cn>-*C'CM>i328-39 

1128 CO5UB19B8:EXEC48180 

M35 DD = P£EK'-:-.302'*255*PEE*'.42B83 "1638 

3-32URETURN 

1288 PEM 

12! 6 «&=16333*L'Cn..*t< CM- --328-38 

1229 C0SUB:?88:E>;EC48139 

1230 ll-'PZtf i£?y; •i'[-^-ZZ' ■ ;e«: ■-•.-.Zi 
3-321 JRETBR* 

1388 PEH 

1318 ftD«16333*L'Crl:*C<Crt> 4 328-1 62 

1328 C0SUBl'5ee:EXEC48!96 

1330 &0=PEEf' 42882 ••256-PEEX (42883 -- 1 63S 

3-20J:PETURN 



14 



' PEP! 



J 80-1638j*L'C«'*C'Xn. 4328*362 
1428 C0SU&193B:EXEC48246 

1438 £'&-PEE>U42302,»256*F.EEK' 42803'- 1636 
4-328:RETURN 
1388 REH 

1510 OD= I 6323 *L< Cm, -tiCH' -.328*361 
:T20 GO;UB1?00:EKEC48383 

:^30 ll--~i.tr. ■ J2t!S2.t256*fEEK<4B883*-I63a 
3-32HRETUPN 
1608 RE.1 
1618 «.-l6383*L^CIT'*CCCnn32e*368 

it 2-3 'iCiiUs:'?eoJE>:EC4e34£ 

1633 W = PEEf ■■ J2-J92 "i'ib-PEEKt 42883-- 1633 

3-32!:RETIJRN 

1780 REM 

1"18 (*&•] 633 3*L'.CftJ*C'C*!> 4328* 168 

1728 iOSUBl?08:EXEC40408 

1730 CD'PEEr '42002 ■•25S*PEO ' J2883)-1633 

3-28l:RETURK 



> PEM 

ISie mD=163S3*L'C(1"C< CM, 4320-48 

1S28 C03UB1980:EXEC4843S 

:?3B DE. = PEEK' 42882 ■•256*PEE> '42683 --163S 

3-321: RETURN 

1?88 RErl 

m8 POKE 42003, INT' -t. 256, :P0KE 4288 1,t.O- 

lNT<ft&'256>«56 

1928 PETUPN 

2888 PEH EXPLOSION 

2818 POKE4027 7,-j;E! :EC J&1 08iPLPV'O4T 1L1 10 

■J':E/EC4?3»7:PLf.:'-PE-tEXEC48139:PL-V-05S 

l':EXEC48342:PLtiY-L«-!EXEC48196iPLflVnl- 

:EXEE46435 :;'."■ --Z. ' ; >. .:EC 48246: PLfiY't-O- :E 

XEC4B438:P0KE<8237,iH27 

2820 RETURN 

5688 PESTOREtPESUHE 

18888 PEM FIN DE P&RTIE 

10818 FORI*! TO 2 

I0828 IF E<I)>a THEN 18888 

18838 H0»16384*L'I-*i:il >4 320* 1 68IL0C6TEL 

<I>,CCI>:C0L0P.6:PPINTCHPI'32 .•: &0SU6 1988 

: uOSUBSBOO 

10848 PL<<Y""9T5L15043IF*PE03SIFARE02S1FO 

RE0IS1FHRE" 

18858 :lS:SCREEN1.2,4:£.TTRBI, HLOCPTEB, 1 

2 

18860 IF 1-1 THEN PPINT'KL 1NIENS -JELSE 

PRINT'HUXONS 'J 
18878 PRINT-VOlN0UEURS-:ATTPE0,8:i0T0181 




10108 COLCR8.6:LOCSTE4,20:Pp:nT-YOULE;-v 

0U3 P.EJOUEP CO OU N) -;:lHPUTAI 

10118 IF «l<;-0- AND «i»0-N' THEH LOChTE 

18,23:PPlNT-PaR[.0N ^ ": GOTOlOieO 

10128 IF O»='0- THEN 28188 ELSE ENO 

28003 S.En PRESENTATION 

28018 CLS:5CfiEEN1.3,0:ATTPBl.l:L0CHT-Eie. 

3:PPINT-HETt;ORITES - :PLSY-L43D0L24D0L]2DO 

.I8rJOL3D0L4O0SIL3SILieSIL12S;L243IL12L«3 

0FH-IIPEOCi":FGPi = ITO2:PLAY-T4A3tO=£nIF.,$0 

LHSI3ISOFdnlPE['O-:NEXTI:PL- , r'«0TSl.2SIL4S 

0L3FflL18NlL;2REL24P0- 

20828 F0Rl = lT01883:NE>:Tl:aTTRee.8 

20850 CLS:3CREEN0,£.0: PRINT: PRINT- [,, 

ni la ceinturt «s *steroiOes, auto 

'it de S»»'jrnt, l a Rataille fait rsjtfnlr 

t Its KLIHIENS routes et les HUXONS virt 



.13.13, 13. 17.13. S. 13. J2. 13. 16. 13. 7.16, «, 
!6,11. 16, 13. 16.15. 16.1 ".16. 18.18, 14. 18. 6 
.IB, 11.18,13, 18. IB. 18, 3. 19. 7. ]9, 17, 19.1* 
.19.4.28,3.28.12.28.16.28.20.28. 11.21, 13 



28868 PRINT"!, 



ell. 



28078 PRINT:PRINT' Heureui 
re les rothers. II fawt I 



20938 PPINT:PPlNTiHTTP6e.l:PRINT* SAUR 
EZ-VOUS SUPVI'-'RE A CET ENFER ?':ATTRBO,0 
:C0L0R3.8:L0:hT£3,s1:PR1NT- Pour contlnu 



If-IMKEYI 



■THEN 



20188 REH INITIALISATION 

28118 CLS:tLEAR.3?iva.9:CiEFiNTi*-n: SCREEN 

.e.6:0IHH2''.C<2i.E'2):ttE-68:0N EUROS CO 

T03808 

20128 B0XF<15.7)-< 177, 1 77 .) . -7: BOX' 1, 8) -I 

23,22f«',l,0 

28130 DEFGRK 0^126. I 93, 153. 165, 165. 153. 

l95,l£6:&EFCRl'I ^24 . 24 . 1 53, 1S3. 255.255, 

129, 1 29 1 OEFCR*.' 2. =3 1.1 83. 254, 188,29. 15,6 

. 12 

28148 [.EFCPi '3 "252. 4S. 48. 63. 63. 48. 48. 25 

2:0EFCPH4> = 12,6,15.29. IS 3. 254, 183.51 : r-E 

FCR#(5>« 129. 129,255.25:,. 133.153,24,24 

28158 OErCPI' 6 > = 4 3. 96.24(1. 16 9,61. 127,238 

.£04!DEFCP«i7>.63.:2,I2,252.2:.2,l2.12,63 

:0EFCPt '3 '=204,238. 127,61, 134,240,96.48 

28288 C0LOR3troPI = l TO 64: PEADL: PE.iDC = L0 

CATEL.C:PRmCHPI' 127>:NEXTI 

20210 Li8>*12:C'.8)»l!LCI ■■3:C< l!»2l:L(2> 

■21lC<2)-2t:El W1088: E<2.>-ie88 

20228 L0CATE24.4:C0L0P1:PP;nT-£NERC1E ( 

■)E<1> 



28488 REH DIRECTION 

28418 0ATatH34.tH7F, 

lHI8.tH60.iHC4.lH26. 

tKC3,t.HC>8,tH2e.tHF3, 

lHI0,lHll,tHB3.1HA4. 

tH:4,tH33,tH:3,JH05. 

iH39 

28428 RE" DIRECTION 

28438 DATfii.H34.tH7r, 

tHBO. tH6D.(,HC4.*H2n, 

tHC8.tHD8,kH44.£K26. 

*hee.t.hsE'.;h45.;hfe. 

20440 DATAtH36,&H01, 
1H27.1H12. lHAI,tHC4. 
I.H33.4HC6.;h[">. KMi 
iHC3.lHC3.lH20.iHESi 
28458 RErt DIRECTION 
28468 DAT8IH34.1H7F, 
tH18,»H6D.tHC4.EH2b. 
tH41.£H28<(HF6,tH8D' 
tH11,lHB3.lHA4.l.H12. 
LH33.1H41.ih20.!,Hf4, 
20478 RE" TEHP0RI5A1 
28438 DATAtHFF,tHi>4, 
tH3A,(.H26.4HF£..tH4A. 
28498 REH DIRECTION 
28508 DATCIH34,.-,H7F, 
l>H80.t,H6D.»HC4,lH26 l 
lHC8.tH28.>H44,iH26. 
thEE.LH8D.tHDw.4HFE. 
20510 DATOt.H86.(M01. 
tH27.lH12.6HAl.tHC4, 
tH33,.HC8,tH2?,tH2&, 
LHCa.tH2S,tH20,tHE8. 
20320 REM DIRECTION 
28530 DATAIH34.&H7F. 
tH18.:H6D.tHC4,lH26, 
(HCS.tH28.tH29.lHF5. 
',H!0.tHll.tHB3,tHH4, 
■,'it 4,>-.H3 3.lMCI9.'H27. 
1H39 



lHS6.lH28.tHFE, 
1H0-.:H"-.IHC4. 
lh5;..tH7l.lHFE, 
LH12.LH2-,tH07, 
tH2e.tHF3,tH3S, 



IHA4, 
IH33. 

tHMf 



lMrE.tHA4.tH18,l 

tH8C.'.H«7, tHC4.i 

tHF4.LH33.lM41.1 

lHrt4.lH10 

tHU.tH63.lHA4. 1 

lH26.iH87.lM6 r .l 

tHEF.tH6F,tHC4.l 

lH3-.tH7F.lH39 

3 

th9F.tHFF.tHFE. 

tH06.tHA7.tHC4, 

tK12.tHFE.tHA4, 

tH27.tH86.tH6F, 

tH35.tH7F,»H39 



LH33. 
tH10. 
tHC4, 



I.IK86. 

t,LH33. 
,tH28. 



tHll.tHB3.tKA4, 1 

tH26.LH87.lH6F. I 

tHCF.tH6F,LHC4,l 

tH35.lH7F.tH39 

3 

tH96.tH20.tHFE. 

tH07.tH07.tHC4, 

tH8D.lH06.tHFE. 

tHI2.tH27.tH87, 

tH20.lHF3.tH33, 



1H33, 
1H04, 
tH6F, 
tH7F, 



33,lH3F,tH28, 



lH6F,tHC4.lH33. 



28230 LOCATE 


4.BJCOL0R2IPPINT-ENERCIE : 


20388 




i»~- 


tHS« 


IKFT 


1HFE 


■II, ,4 


•!E(21 












i.h.'.: 




t H j J 


20248 C0L0R4 


7iL0COTEL<8i,C'8)iPPlNT(;RI< 




,H2e,»HF( 




i^rr 




IHFE 










HI] HI. 






IH2) 


tH06 


■,Hl.l 




02iCOL0PI.8:L0COTEL*I),C(I> 


tHC4, 


H33,iKSr 


,M,'i» 


tHF4 


1H33 


IM7F 


Ml. .a 




NEXTI 


2839( 


REM DIRE 


:;t\K 










20268 FORI-8 




2068( 


DOTAtH34 




tKFE 








NEXT I 




1H01, 


i.H6D.tHC4 


■ «as 


1 H9C 


IHA7 


Dll-I 


1H33 
















IH3F 


tH2B 


28388 DATA12 






















286 If 


D0TALH86 


■ mi< 


tHlt 


1MB ?. 




1 H 1 1 




9.4, 10,7,10,11,18.13. 18-17. 


1H27. 


>H12,'.H01 


•-HC4 


tt(2ri 


:.H(l7 


lH6f 


IHC4 




. 19.11.6, 12- 18.12.14, 12,10, 


tH33, 


.HC3.tMD7 


1H26 


tHEF 


tH6F 


i, HI. -1 


1X33 







































ALLUMETTES 



Un jeu d'allumettes ameliore, plus amusant que Nim, 
plus complexe que Marienbad. 



n 



ds 



PEM 
REM 



IF H-sllNT *Jy3)>*0 TMCN 
PRINT TP.D *; 



18B PRINT AT ai,8i"ll r« 

18S IF nnil THEN PRINT " 

J9a RETURN 

see REM ■ *»ilCh»ga tuu 

21« INK 6 

a»e FOR 1 =1 TD 3 



pint ;;■ 

fiCTUPtl 



890 REM I 

gee go si 

9ie LET 
93*. CD 5 
915 LET I 



I ■ COUP- 

JT.N-nj 



oo sue 
ok ■ 



Ltrr 1 

LET M»N »*«. 

RCM m pli/i CjI j"Jl J*;n( 

, jf N(=e then oo rci t>eeft 

LET /iK.fi.i ~99 
. LET /-**t«-N-3 

JF niltlHti THEN OO TO J9» 



TO 107B 



r«it«>iHT 



tx/ai tm 

nn ao to ieee 

1310 IF ritlOB THEM LET f'itr.l 
1230 LET M*X-I 



MIX THEN OO TO 7OB0 































































'BOB FDR j=l TO 3 








uao PRINT RT a, A, 






railn 




ftponn 


































4-JflO PRINT RT 9,», 




e pour jout 4""vr 
iioa print «T »,e. 




t*» a 




lliSa PRXNT RT If.*, --pt.il , 

tiea print rt 11,0; "» wo 

lies print At i^,,«; "joi'i 1 

■1170 PWIwr RT 13,0, -i# t*j un no 

L17B print RT i*,v>; -non nv i * I « 

417* PRINT RT 1B,BJ"*W dOL'bl* du 



4 103 INK „ 2 

li'SS print RT~a,2, "I.* vamwur 

4>iri print rt 7.0;"gr*iid P»# I* 

*.zze print rrr t>,s;"la pr«»imr io 

jevr ptui prendre'' 

4330 PRlin- rt 9.a, "un* ov d«tur # 

JlirpEflHr hf-bb: w '■•*'* 

t§?S jraN'fWT.Kf.'Jo TO tS3 J0 

4.aB0 If rtll)(>"(." THEN OO TO *1 



titfl print n- poirrr 

**SB PRINT "VOUltJ VOOl Jft 

>4A« input "ripus/n ";r» 



Mil Lgr B . ub lmm 

S21B INPUT "VOUI 

»eH» if nji»M TMe' 

noatf ink fl 

r.3M print *vr ae.e 

t - 1 , ■ , lf".«« 1 

S33B INK 

sb*« oo TO DB10 

5230 LET I 



UB7B l>ni>5E BS*P 



v»a RETURN 

rem mmmmmmmm^^^^mmm 

... ^liirc.ii ji'fMiiTiJ 

010 PRINT AT H(8,fl,"J* pr.fid* ' 



■X>1 THEN 



l:.s ' 

b5S3 ootc 

7BBO REM * 

7eei rem 

7003 FlFIM 

'»19 CL3 
?B »• INK „ 

7B3B FOR 1-1 TO SB 

7033 BEEP .0S,i 

703* NEXT i 

7©AO PRINT RT 13, »; 

' • i i • un* «utn " 



RT lB.Bj" 



Su/le page 14 



C'EST NOUVEAU, CA VIENT DE SORTIR ! 



LOGIC* CUISINE: 

C"est avec trois formules originales d'assistance 
qu'ORD' ASSIST fait son entree sur le marche de la 
micro-informatique. Cette nouvelle societe propose 
en effet aux CONSTRUCTEURS. DISTRIBUTEURS 
REVENDEURS et UTILISATEURS trois services pour s'y 
retrouver dans le dedale des logiciels et de leurs appli- 
cations particulieres : 

- Une ASSISTANCE TELEPHONIQUE basee sur la 
signature d'un contrat CAT (Convention d'Assistance 
Tetephoniqueloule client pourra par simple appeltele- 
phonique obtenir la reponse aux problemes d'utilisa- 
tion deson logiciel. 

- Un GUICHET SELF SERVICE pour les grandes socie- 
ties oil une permanence de ORD' ASSIST est dans les 
locaux memes de la societe ou dans les locaux dun 
distributee; ou encore chez ORD' ASSIST sur des 
materiels mis a disposition (APPLE, IBM PC 
T07 THOMSON,...}. 

- Des FICHES CUISINE etablies a partir des documen- 
tations de logiciels standards : Multiplan. Visicalc, 
Database 2, etc.. ou I'utilisateur pourra trouver la solu- 
tion a son problemeparticulier sans avoir a consul ter la 
volumineuse documentation des modes d'emploi. 

De quoi simplifier considerablement la vie de pas mal 
d'informaticiens amateurs ou professionnels. 
ORD" ASSIST • 5 bis, rue Martel - 75010 PARIS. 



COMMODORE 64: 

PROGRAM PACK 64. ce package comporte plusieurs 
programmes utilitaires pour I'aide a la programmation 
en BASIC et en ASSEMBLEUR : GESTION DU DISQUE 
LANGAGE MACHINE. GRAPHISME (editeur de carac- 
teres et de sprites). SONS (creation et stockage de 
musiques et de sons). EMULATEUR PET (pour charger 
et executer les anciens programmes en BASIC 2.0) et 
EDITEUR D'ECRAN. 

AUTOFORMATlONAUBASIC.constitued'unmanuelet 
de deux cassettes, cecours est divise en quinzelecons 
contenant theorie. pratique et programme d'applica- 
lion. 

DIARY 64, agenda electronique, pour memoriser des 
informations dans de petits fichiers crees sur casset- 
tes ou disquettes (adresses. telephones, rendez-vous, 
anniversaires. etc.). 

VIC-RELAY, pour transformer votre Commodore 64 en 
robot ! Controle des sonneries d'alarme, portes. serru- 
res. chauffage. lampes, et toutes sortes d'instruments 
electriques. Avec 6 sorties relais et 2 entrees de type 
optocoupleur. 

UNE SERIE DE JEUX : JUPITER LANDER, atterrissage 
d'un vaisseau spatial. KICKMAN, un cycliste sur un 
monocycle doit attraper des ballons, des fantomes et 
des gloutons. SEAWOLF. bataille navale. RADAR 
RATRAGE, des rats, des souris, un chat et des froma- 



ges. le tout perdu dans un labyrinthe. CLOWNS, deux 
clowns attrapent des ballons en sautant sur une bas- 
cule. SPEED et BINGO MATH, deux jeux educatifs de 
calcul. 

Plus serieux.des programmes de calcul electromques 
CALCRESULT 64. 32 feuilles de calcul sur cartouche + 
disquette. CALCRESULT Easy, feuille de calcul sur car- 
touche. EASY SCRIPT 64. traitement de texte sur dis- 
quette. 



T1TI ET TOTO SONT DANS UN BATEAU ! 

Ti (Texas instruments) et To (Thomson TO 7) sont dans 
un bateau. Ti tombe a I'eau : qui est-ce qui reste? 
Heureusement.il reste unTI 99 a 1190 francs avec des 
logiciels entre 66 (contre 98 avant la baisse) et 500 
francs (au lieu de 950 francs avant la baisse). 
Que ceux qui ne se precipitent pas pour acheter le 
basic etendu texas, ou la mini-memoire (500 francs au 
lieu de 950 francs), nousecrive. its ont gagne le droit de 
ne plus lire Hebdogiciel. 

Et puis, il reste aussi un TO (7) a 2990 francs au lieu de 
3250 francs. Ceux qui n'ont pas encore d'ordinateur 
peuvent acheter un Thomson, ca commence a devenir 
interessant d'acheter francais. 



LE PREMIER TOME EST DEJA UN BEST-SELLER, VOICI DEUX NOUVEAUX 
RECUEILS DE LOGICIELS, ENCORE PLUS COMPLETS, ENCORE PLUS 
BEAUX ! 



JEUX et PROGRAMMES 

pour 

I'ordinateur familial 

TEXAS INSTRUMENT 




en Ti basic pour "Ti 99/4A" 



INITIATION AU 
LANGAGE ASSEMBLEUR i 
TEXAS INSTRUMENT* 
Ti 99 4/A 




Programmez vous-meme en Ti-Basic grace a des instructions simples, sans 
aucun periphenque ni module complementaires. Des jeux originauxet passion- 
nants avec couleurs.graphismeset sons: Jeux demouvement (Bowling. Bataille 
de I'espace. Labyrinthe, etc.). Jeux de reflexion : Dames, Pendu. Awari, Tour de 
Hanoi. Architecte. etc.). Jeuxde societe (421, Goldie.Cochon. Mastermyster.Chif- 
fres et mots. etc.). 

Des programmes performants : Calcul (Factures, Paye. Byorythmes. etc.). Assis- 
tance (Tierce. Impots, Suivi de compte en Banque. etc.). 

Et aussi des Astuces pour augmenter la puissance du langage Ti-Basic : AND et 
OR. Arrondi, Alignement. HCHAR multiples, etc. 
100 pages. Format 21 x 29,7. 155.00 francs francais. Disponible. 



Le tome 2 est toujours en basic simple, sans peripherique ni module complemen- 
taire. Les jeux y sont encore plus nombreux: Backgammon, Sous-marin.Trappe, 
Roulette, Casse-tete, Puzzle. Echecs.Tachitoscope. Kim. Paires.etc.De la musi- 
que a inclure dans vos programmes : Big Ben. la Marseillaise, God save the queen. 
les Rois mages, etc. Et aussi, des programmes educatifs : Arithmetique. Calcul de 
puissance, Regions de France, entrainement a la logique informatique. etc. 
100 pages. Format 21 x 29.7. 155,00 francs francais. Disponible. 



en vente dans les fhac et chez les 
revendeurs TEXAS INSTRUMENTS. 



Le tome 3 est en basic etendu, il necessite done le module "Extended Basic" qui 
augmente considerablement les possibilites de votre ordinateur. A des program- 
mes utilitaires comme un traitement de texte ou une gestion complete de plu- 
sieurs comptes en banque s'ajoutent des jeux rapides (bataille navale. course de 
voitures. etc.), des jeux de societe (Theme astral. Drapeaux. Poker, Harmonium. 
Calcule ttescientifique.Ardoisemagique etc ). des utilitaires pour creer des lutins. 
fusionner des caracteres. dessiner point par point, faire defiler des textes dans 
tous les sens ou encore fabriquer une mire Texas a votre nom ! 
100 pages. Format 21 x 29,7. 155.00 francs francais. Disponible. 



Vous connaissez le Ti-Basic, vous possedez un Ti 99/4A et un module "Mini- 
memoire" ? Vous pouvez des a present disposer de toute la puissance de votre 
ordinateur : Acces a toutes les possibilites graphiques, y compris la haute resolu- 
tion. Acces direct alamemoire cent rale. Grande Vitesse d execution (deux minu- 
tes au lieu de deux heures trente pour un meme programme). 
Ce manuel. comprenant un grand nombre de programmes commentes vous 
apprend progressivement, sans connaissances techniques prealables. a maitri- 
ser un langage tres puissant reserve jusqu'a present aux seuls speclalistes. 
Par Denise AMROUCHE et Roger DIDI. 214 pages. Format 21 x 28. 195.00 francs 
francais. Disponible en francais et en anglais. 



JEUX et PROGRAMMES 

pour I'ordinateur familial 

TEXAS INSTRUMENTS 

Tome 2 




Progmmmos «n Ti BASIC pout Tt 99'4A 

JEUX et PROGRAMMES 

pour I'ordinateur familial 

TEXAS INSTRUMENTS 

Tome 3 




ROGRAMMES «n BASIC ETENDU TI W4A 



DEMANDED LE CATALOGUE DE NOS PROGRAMMES DISPONIBLES SUR CASSETTES ET DISQUETTES. SHIFT EDITIONS. 27 rue du Gal Foy, 75008 PARIS 



fWPrtnom I I I I I I I I I I I I I I I I I 

Ata. I I I I I II I I I I I Ill 

1 I I I I c»l» P„-.,..l I I I I I I 

™'- I'll I I I I 



TOME I D 165 F 
TOME 2 O 155 F 



TOME 3 n 155 F 

ASSEMBLEUR II 1 95 F 



CONTRE REMBOURSEMENT FRANCE 
CONTRE REMBOURSEMENT ETRANGER 



I 20 F D 
I 30 F n 



REGLEMENT JOINT... 
chdquo G ccp O 



I i i i tQiftf 



DEUX SUPER-CONCOURS PERMANENTS 

1 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
formule, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organlsons 
un concours permanent tons 
les moiset tous les t rimes tresl 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pout 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUXet FRANC AIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialist es vous dira comment 
1'ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessalres a ('utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Reglement; 

ART. 1 - HEBDOGICIEL organise 
de facon mensuelle el trimes- 
trielle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre. 
ART 2 : Ce concours est ouvert a 
tout auteur de logiciel quelque 
soil le materiel sur lequel il est 
realise. L'envoi dun logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
journal conslitue I'acte de can- 
didature. 

ART. 3: La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de loriginalite les logi- 
ciels qui sont publies dans le 
journal 

ART. 4 : Ce sont les lecteurs qui, 
par leur vote, delerminent les 
meilleurs logiciels mensuel et 
tnmestriel. 

ART. 5: Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART 6: Le prix alloue pour le 
concours Irimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART. 7- Le present reglement a 
ete depose chez Maitre Jauna- 
tre. 1 . rue des Halles 75001 Paris. 
ART. 8 : HEBDOGICIEL se reser- 



ve le droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant. 

ART 9: La participation au con- 
cours entraine I'acceptation par 
les concurrents du present re- 
glement. 

HEBDOGICIEL: 27. rue du Gal 
FOY- 75008 PARIS. 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordi nateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depouillement du vote. 



BON DE PARTICIPATION 



Norn ; 
Prenom . 
Age : 

Adresse : 

n° telephone : 

Nom du programme ; 

Nom du materiel utilise : 

declare etre lauteur de ce programme qui n'est ni une irmtalion m 
une copie d'un programme existant Ce programme resle ma pro- 
priety etj'autonse HEBDOGICIEL ale publier La remuneration pour 
les pages publiees seront de 1 000 francs par page (un programme 
n'occupant pas une page entiere sera remunereau prorata de la sur- 
face occupee). 
Signature obligatoire : 
(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette 
ou disquette) accompagne d'un Descript[f Desailte du Materiel uti- 
lise, d'une Notice d'Utilisation du Programme, et d'un emballage 
timbre permettant la reexpedttion du materiel non publie 



RECOMMANDAT10NS AUX LEC- rons ainsi reperer (acilement les 
TEURS QUI SOUHAtTENT FAIRE listings, une foissortisde i'impri- 
PUBLIER UN PROGRAMME : mante. 



• Indiquez sur le support 
magnetique lui-meme votre 
nom. le nom du programme et le 
materiel auquel il est destine 
Rien n'est plus difficile que d'es- 
sayer de charger un programme 
d'Apple sur PC 1500. 

• Notez dans les premieres 
lignes de votre programme, sous 
forme de REM, votre nom, le nom 
du programme et le materiel 
auquel il est destine. Nous pour- 



• Dupliquez plusieurs fois sur la 
meme cassette et a des niveaux 
d'enregistrement differents 
voire programme. Nous aurons 
plus de chances d'arriver a le 
charger si les magnetophones 
ne sont pas tout a fait compati- 
bles. 

• Envoyez un seul programme 
par support magnetique et un 
seul mode d'emploi par pro- 
gramme. Votre lettre d'accom- 



pagnement et vos autres cour- 
riers doivent egalement etre 
separes car traites par d'autres 
services. 

• Joignez. si possible, un listing 
du programme et un organi- 
gramme. 

• Enfin.lefindufin.expliquezles 
particu'arites de votre ordina- 
teur et le moyen d'adapter votre 
programme a d'autres ordina- 
teurs. 




LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 




APPLE II 


FONCTIONS 
SUPPLEMENTAIRES 


INPUT FORMATE 


APPLE II PARLE 
FRANCAIS 


CODIFICATION 
DE FORMES 


CASIO FX702-P 


COCKTAIL 


LOTO 


ELECTRONS 


BIORYTHMES 


COMMODORE 64 




CAO SPRITE 


BELOTE 


ZORG 


COMMODORE 
VIC 20 


CONJUGAISONS 


GOLF 


FLECHEGO 


EPONGE 


HP 41 


POKER 


ALUNISSAgE— - ~"""" 
_^__ — -"^ DES 


FACTORISATION 


FONCTIONS 


HP 75 


FORMULE 1 


DELREM 


COMPOSITION 

MUSICALE 


EXTENSION 

BASIC 


MP-FII 


CHIFFRES ET 
MOTS 


MASTERMIND 


MICRO-SYNTHETI- 

SEUR 


LABYRINTHE 

VIVANT 


ORIC1 


ANNUAIRE 

ElECTRONIQUE 


PUITS, FEUILLES. 
CISEAUX 


MEMORIC 


LABYRINTHE 


PC 1211 


MASTERMIND 


BASHIC __ — -"-"""' 
__^--^"MEMORY 


CALENDRIER 


NIM 


PC 1251 


OTHELLO 


EDITEXT 


TOUR DE HANOI 


ACHAT DE 
VOITURES 


PC 1500 


PUISSANCE 4 


PASSWORD 


PRISONNIER 


FRACTIONS 


MZ80 


SUPER HEROS 


MUP DE BRIQUES 


RENDU 


MORSE 


ZX81 


OOLF 


TANK 


MEMESE ^^^ 
NOIE .^^ 

^-^ SAFARI 


CARBOX 


SPECTRUM 


MASTERMIND 


CINEMA 


EDITEUR 
PLEINE PAGE 


TOUR DE HANOI" 


TRS80 


FOOTBALL 


CHARG EUR 1000 
BANDS 


BATAILLE ^^-"" 
NAVALE^^^ 
^-^ MEMORY 


DEMONS ET 
SORCIERS 


Tl 99/4A (basic 
simple) 


PUISSANCE 4 


ALIEN 


LARGAGE 


FRANCE 


Tl 99/4A (basic 
etendu) 


421 


MAGIBRIQUES 


GRANDE BOUFFE 


TIRS CROISES 


TO 7 


FRANCE 


SURFACE 


PEINTURE 


AWARI 



Directeur de la Publication - 

Redacteur en Chef: 

Gerard CECCALDI. 

Imprimerie: 

DULAC et JARDIN SA. 

1. rue Gay-Lussac. Z.I. N° 1. 

27000 EVREUX 

Editeur: 

SHIFT EDITIONS, 

27. rue du Gal-Foy 75008 PARIS. 

Publicity au journal. 

Distribution NMPP. 

Commission paritaire en cours. 

N°R.C 83 B 6621 



DIX BULLETINS DE 
VOTE TIRES AU 
SORT GAGNERONT 
UNE CALCULA- 
TRICE SOLAIRE 
CASIO. 



DATE LIMITE DEN- 
VOI DES BULLE- 
TINS DE VOTE : 
JEUDI 17 NOVEM- 
BRE, MINUIT. 



AUX URNES ! ' 

Abandonnez quelques instants vos claviers et prenez 
votre plus belle plume pour remplir le bulletin de vote 
ci-contre. La redaction d'Hebdogiciel compte sur 
vous! 

La marche a suivre est simple : 

- Reperez dans la grille ci-contre le programme 
pour lequel vous voulez voter ainsi quecelui pour 
lequel vous votez en second (le second nous per- 
mettra de rendre plus equitable la formule de 
choix du gagnant). 

- Reportez le nom de ces deux programmes sur le 
bulletin de vote. 

- Inscrivez vos nom et adresse sur le bulletin de 
vote. 

- Expediez-le a HEBDOGICIEL, CONCOURS MEN- 
SUEL, 27, rue du General FOY. 75008 PARIS, 
avant le jeudi 17 novembre a minuit. 

II est fort probable que ceux qui participent au 
concours feront voter leur papa, leur maman, leur cou- 
sineet la totalite de leur amis et relations pour leur pro- 
gramme. Normal! Mais comme chacun d'eux fera la 
meme chose, cela n'est pas bien grave ! Toutefois, tou- 
jours dans un souci d'equite, nous n'accepterons que 
les ORIGINAUX du BULLETIN de VOTE ; pas de photo- 
copies, cela serait trop facile! 



TORPILLE 



Un jeu graphique oil il vous faut couler un bateau dont 
la Vitesse varie pour essayer d'echapper aux torpilles 
de votre U-Boat. Une premiere pression sur la partie 
gauche du clavier ou sur le bouton de tir de la poignee 
numero un lance le bateau dont la vitesse est prece- 
demment affichee. Une seconde pression lance la tor- 
pille. 

Pierre VIOLENT 



10 CALL CLEAR I : CALL SCRIENUI 

10 FOB 1-1 10 B :: CALL COLOR! 1 .8 . I ) : : NEU 1 

JO 01SPLAY ERASE ALL:— DESTRUCTION DE BATEAU! *— 

M PRINT : I ;*LI BUI 0E CE J£U EST DC: :"DETBU1RE LE PLUS 01 BATEAIH*: I* 

ES 10 QUI VONT HfllEBV :*SUR I' HUM.' 

SO PRINT i :"OUAftO APPARAIT SO IV :*AU SO**! 01 L' ECRAN,': '.'IPfWlt % 

C TOUCH POUR"; ;'KHMKI LE BATEAU. PUIS* 

Ml rami :1*E SECONDE PRESSION IAHCEW: :*U I0RPIllE.\ 

70 CALL *IT(l,A,a):: IF fO IHtN 70 

B0 CALL. CLEM :: RAN0OHIZ.E 



90 S- 7 :: O-10 

ioo call coi»(t3,*,i.i;.*,s.n.iS' 
s.s.j.i.e.i.s.o) 

110 CALL CIW|i;8.-OOOOCOOtOF9FFFFF0OO0OCllJFFFfFFFO00OOO0HFF(FFfF00000000Cat7F 



S.6.Q.D.I.S.S.D,6.S.D.S.S.0.a.S.0.< 



140 CALL CHA*U«.*FFFFOOfFff0OFFfFfFO0FFFFFF0OFFFFFIFfOOFFFFffFFFF0OFFFFFFFFFFF 

F*l 

ISO CALL CI«(17O.-010»70FlF3f7FFFBOC0£0F0FBFCFEFF0OQ0OOO01F3nFFF0O0O00Cimi«IE 

OF*) 

1M CALL C(*R(17«,-FOFBFCf£FFFFFFFF0103070FFFFFFFFfOFlflf7fFfFFFFFFFFFFFFFFFFFFF 



170 CALL CHM(II6.-Q»flF3E3C3878737B7BX3C3E 
130 CALL •W{M.'OM»C1SO«F.!F»«<&'646EFFO! 



710 EAO-lNTIT-RNO-fl] 

ua llu-intiz-rw*] 

730 CLtl-INT(8*RK»4) 

7*0 LFD-!NT(4*«B>.19) 

2S0 STAR-lO-RHO-10 

760 CALL P#fiNIFY(J) 

770 CALL KHM{1. 1,11.7 

280 FOR C-l TO » :: ' 

790 CAU HtKWEAU-l. 

300 FOR 1-17 10 24 

310 CALL K*AR(I.]. 119-1. HI 



locwiwxDOOoooooooes f 
■ f FooEoaoBosoeosoeoaosoBOB i f f 6Efc 



4'RNO}):: NEIT C 



340 FOR C-l 10 12 

J» IF CA-121 OR CA-174 Oft CA-127 TMFJI LfD-LFD*l 
3«0 CALL VtHMtftlN(24.IJ!>M).C.l?7,r1M[0.2*-LfD)) 
770 If LFIK7S THEM CALL HCHAR(LFD.C.CA) 
390 IF CA-170 Oft CA>124 THW LFD-LFD-) 




Solution de I'hypporebus: 










10 FOR 1=1 TO 10 




20 READ X 










30 PRINT CHRS(X); 










40 NEXT 1 










50 END 










60 DATA 65,76,71,79,82.73 


34 


72 


77 


69 



IF CA'172 Oft CA-l'j OB CA.I24 !ML" OM INT(S'R>IDM)G0I0 410.4 
U CM |-T(J>t«D-l)00I0 44O.t6O.470 

o ca-170 :; soio 49a 

a ca-171 tt soio 490 

a-u* t: GOTO 490 

D CA-123 :: GOTO 490 

W124 :: GOTO 490 



NEIT C 

FOfl 1-1 TO STM 

CALL KHAJ«[EAU-21*RND*l,JO*ftND*l.lll*RN0) 

MEAT 1 

DISPLAY «[LLU.CLU)SI7.E(7):*t*' 

DISPLAY AT(LLU>l,CLU)SI7Ef7);*uw* 

DISPLAY AT(,I.2Z):"0nnTIRE' 

DISPLAY AT(7.77):"0nnC0UL- 

CALL HCKARU.31.69) 

CT0R-lNT(17*ttD«15) 

CALL SP«:!TE(£1.96.1.,B'EAU-18.!<>) 

FOR l-EALM TO 24 

CALL GCHAdU.CTOH.il) 

IF X128 IHEN 650 



CALL SPRITEU2.I00.12.S'L-4.8*CT0ft-S) 

LASTI 

CALL MCHM[L.CT0».143) 

DISPLAT *T(1.[)SUE(6)BEEI>:- GO ! * 

YBAT-lNTORNO'fi) 

DISPLAY AT(3.IISI7E{S-L£»l[STR*(tBAT))):-yBAIn-iSTMl¥MT) 

F-0 

CALL KEY(I.».8):: IF B<>1 THEN 720 

llft-TIR-l 

DISPLAY AT(t.l)SIZE(6):-onnpBO- 

DISPLAY AT(3.1)SIIE(7):-nnnBWil- 

<! CALL KOTIONUI.O.YBAT) 

CALL «EY(1,A.B) 

IF 8<>1 THEN 810 

'0 CALL MOTION [ 12 .-1 J. 0) 

10 f-500 

CALL P0SIIi«t(£t,Ll.Cl.«.U.C2) 

10 IF F THEN CALL SOU"D|-20O.F,25):: F-FMO 

10 IF LK1S THEH 940 

i0 IF C2'C1 Ofl C7>C1*14 OR L2H1-10 OR L2<L1 THEN 770 



&\° 



«#> 



fc* 3 TI99/4A 




BSO CALL "0 HON (£1,0.0,12. CO) 

B60 DISPLAY »T(1.1)S1IE[B):- BOUM ! ■ 

670 CALL PATTEWltIl.104.L7. 104);: CALL £QLM(£I.10,£2.!2) 

BSO fOft I— S TO -4-RKD-M© STEP -I 

BBS FOR J-l TO S 

890 CALL LQUH[Ci.Llt4*JMn.Cli<*MI>.U.lW*R».Cl*4ntej 

B9S CALL SOUNOI-tCO.l.S'J) 

900 NEIT J 

905 NE£T I 

91D CALL DELSPR1 Tt(ALL) 

970 CCULE-COULE'l 

9» GOTO 960 

940 CALL H0T1 ON[tl. 0.0. £7,0,0) 

950 DISPLAY AI(1.1)SI2£(10):* MANQUE 1 ■ 

960 DISPLAY -Tll.22)SI?.EtLE*|sm(Il»))):5ttSUI») 

970 DISPLAY AT(7.77)sn[(LEN(SlR*(COULE))).ST»t(COUlE) 

900 IF TIR-2 THEN CALL NCHAJtll. J1.B1) 

990 IF COULE-2 THEN CALL *«i«li, 12.83] 

1000 C'll H£H»R|L,CIO«.I) 

1010 IF TIR-IO THEN 10S0 

1070 CALL tEYfl.A.B):: IF B4)l 1MEK 1070 

1030 DISPLAY Am,l)S!7E(!0):-onnp»opnBn* 

1040 GOIO SSO 

10SO DISPLAY 'HI.DSIIEU?):* FIN MMmW 

1060 IF COVLE>S THEN At-'BIU* 

1070 IF COULD' THEN AJ-*TRES -«l 

1080 If A*-" 1KEN IF tOULE.l THIN Al-'FAIBLE" ELSE »J--»UL 

1090 DISPLAY BEEP AH3.1)SI7EUEX(AIJ.?):" - ; At ; - • 

1100 CALL UY(),A,B):: IF BOl THEN 1 KM 

1110 IIR.COULE-O 

HIS »!■" 

1170 CALL DELSPPIIE('LL) 

1130 GOTO 710 
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SOLITAIRE GEANT 



Le jeu du solitaire est deja loin d'etre facile a solution- 
ner. Quand en plus il est geant, reservez des soirees 
completes pour essayer d'en voir le bout. 

J.-P. GRANGER 



**& 



it**** 1 



too an cum 

110 GUI SCKE*(13) 

IK) CAIL C0L0RU.M) 

130 MLL C(X«(9.9.?) 

1*0 C*LL C0L0R(14,?,16) 

IM CALL C0L0S(lS.i,16) 
160 FOR 1*3 TO 8 

170 CALL C0LMU.I*.*) 



ISO I 



I I 



190 CALL CNAR(«0.*FFfFffffFFFFFffF* 

JOO CALL OMR(41.*0000000406fF0604' 

"10 CALL CH*JHM,*3C7EFFFFFFFnE3C- 

?» CALL CHUtUM.'FFFFCOCOCfCFCFCF 1 

2X CALL CWUldJJ.-FfFFOOOOFFFFFFFF 1 

140 CALL CHM(!»,-FFFF0»3f JF3F3F1 1 

?» CALL CH/Ut(t39,*CFCFCFCFCFCFCFCF' 

?60 CALL CH*mi40,*F3FJFlF3F3F3f tfl 1 

J70 CALL CHWHl41,*CFCF0FOFFFfFFFFF' 

"30 ail CMAR(14?.-F)F3F0F0FFFFFFFF' 

290 CALL CKWIHS.'CFCFCFCFCOCOFFFF 

300 CALL CHUt(I44,*F]F3F3F30303FFFF' 

310 CALL CH«([14S,*FFFFFFFF0O00FFFF' 

320 CALL CWR(14i,*FFFFFFFF0F0FCFCF' 

330 CALL CHUU147.-FFFFFFFFFOF0F3F3' 

340 CALL HCHUtO. 10.135) 

3W CALL MOW' 1. 11. 137, SJ 

380 CALL HCHUttl. 16.138) 

370 CALL »OW<2.10.139,5) 

380 CALL VCKARU.1S.140.S] 

J90 CALL HOW(7. 10,1*1) 

400 CALL HCHAJt(7.1S.142) 

410 CALL HCKM(7.4.1») 

420 CAU HC)tiR(7.Z2.138) 

430 CALL HCHU(7.S.137.S) 

440 CALL KHM'7.17,137,5) 

450 CAU VCHAR(8. 4,139,5) 

460 CALL ¥OW(8.*2.140.S) 

470 CALL HOW(13,4.143) 

480 CALL HCHUl(13,22,144) 

490 CALL HOW(13,S,t4S,5) 

500 CAU HCHM(U,17.14S.J) 

S10 CALL HOW(13, 10,146) 

S20 CAU HOW(13.16,147) 

S30 CALL VCHLR(14. 10. 139.5) 

540 CALL VOWU4, 16, 140,5) 

550 CALL HCHABf.19, 10,143) 

560 CALL HOWU9, 16,1*4) 

570 CAU HOW(19.11.145.S) 

580 REM ——*fOMO 

590 FOR W TO 18 

600 CALL HOW{l. 11.40. S) 

610 REIT ! 

620 FOR 1-3 TO 12 

630 CALL KHUt[1.5, 40,17) 

640 XUI I 

650 FOR 1-2 TO 6 STEP 2 

660 FOR J" U TO 15 STEP 2 

670 CAU HOW(I,J.96) 

680 REIT J 

690 NUT I 

700 FOR I-B TO 12 STEP 2 

710 FOR J-5 TO 21 STEP 2 

720 CALL HOW[I.J.96) 

730 nlll J 

740 NEXT I 

750 FOR !• 14 TO 18 STEP 2 

760 FOR J- 11 TO 15 STEP 2 

770 CALL HOW(I,J.96) 

780 NEXT J 

790 NEXT 1 

BOO rt-'WUTAm" 

810 FOR 1*1 10 L£N(Hl] 

820 CALL KOURf. 10.0*1, MCCEGStKS, I, 

830 CALL 500)10(150,-7.0) 

840 NEXT I 



850 GOSUS 3170 

860 FOR 1*9 TO 17 STEP 2 

870 CALL KHM(lO.l.W) 

880 NUT I 

890 FOR 1-10 TO 16 STEP 2 

900 CAU HOW(10.I.40) 

910 REIT 1 

920 «•*! 2 3 4 5 6 7 8 9* 

930 FOR 1-1 TO LEN(M) 

940 CALL HOWl21.4*t.ASC(SE«(W,I.l))) 

950 NEXT I 

960 «••! 2 3*56789* 

970 FOR 1-1 TO IEN(K}) 

980 CALL KH*R(1«1.3.ASC(SE6*[«. !.!))) 

990 NEXT 1 

1000 FOR 1-5 TO 8 

1010 CALL COIQRU.2.1) 

1020 NEXT I 

1030 CALL HCKAR(24,4.41) 

1040 CALL 5OUND(2OO,110,0) 

1050 1*2* 

1060 C-4 

1070 W-* REGIES DU JEU....O/N* 

1080 G0SU8 2550 

1090 CALL X£T(0,K,S) 

1100 IF S-0 THEM 1090 

1110 IF (r<7S) + (079)-l THEN 1090 

llffl IF K-79 THEN 3270 

1130 CALL HCHAR(2*.I,32.32) 

11*0 CAU HOW(l, 19.41) 

1150 CALL SOUKOf.200. 110.0) 

1160 L'l 

1170 C-20 

1180 JtS-'J'EKUVE- 

1190 60SUS 2550 

1200 1-3 

1210 C-19 

1220 W>'QU£l PION* 

1230 60SUB 2550 

1240 L-16 

U50 C-23 

1260 Kl-'LISME* 

1270 GOSUB 2550 

1280 CALL KET(O.X£T] .STATUS) 

1290 IF STATUS-0 THEN 1280 

1300 IF (KETl<49)*(t£Tl>57)*-l THEN 1240 

1310 CALL HCHA«(16,30,ttYl) 

1320 L-17 

1330 C-21 

1340 W-'COlCWtE- 

1350 GOSUB 2550 

1360 CALL ttT(0.XET2, STATUS) 

1370 IF STATUS-0 THEN 1360 

1380 IF (K£Y2<49)t(«Y2>S?)-l THEN 1320 

1390 CALL HCHAR(I7,30.«Y2) 

1400 REM "ENLEYEKRT PION" 

1*10 GOSUB 3200 

1420 L-KEY1-48 

1430 C-KET2-48 

14*0 CALL S0UNO(10O,-5,2) 

1*50 CALL MCHARtL*2,C , 2*3.40) 

1460 GOSUB 2890 

1*70 REH "IMPRESSION OE 7" 

1480 NPM4 

1490 CAU HCHAR(1.27,6B) 

1500 CAU HCHARU.2B.69) 

1510 REH "LIGNE/COIONNE"" 

1520 CAU HCMR(3.24,32.9) 

1530 CALL MOW(3,21,41J 

1540 CAU SOUNDt 200. 110,0) 

1550 L-3 

1560 C*24 

1570 W-*LIGM* 

1580 GOSUB 2650 

1590 CALL KT(O.Ll.Sl) 



1600 IF Sl-0 THEN 1590 

1610 IF Ll-32 THEN 2940 

1620 IF (L1.>'7)*(11<49)*-1 THEN 1520 

1630 CALL HCHAR13.3I.L1) 

1640 CALL HCHAJ1|4.22,32.11) 

1650 CAU HCHAA(4,21,41) 

1660 CALL SOUNO(200, 110,0) 

1670 L-4 

1680 C-22 

1690 W-'COLONNE* 

1700 GOSUB 2550 

1710 CALL tET(O.Cl.Sl) 

1720 IF 11-0 THEN 1710 

17M IF (C1«9)*(C1>57)-I THEN 1640 

17*0 CAU HOW(4.31.Cl) 

1750 REM ••[KPRE5SI0N A 7*** 

1760 CALL HCHAR(14,28.65) 

1770 CALL HOW(16. 20.32. 11) 

1780 CALL HCHAR( 16.21.41) 

1790 CALL SOUNDl 200. 110,0) 

1800 L-16 

1810 C'24 

1820 K1-*LIGNE* 

1330 G0SU8 2550 

1840 CALL X£Y(0.12,S2) 

1850 IF S2'0 THEN 1840 

1860 IF (L2C49)«(L2>57)--1 THEN 1770 

1870 CALL HCHAR(I6, 31,1.2) 

1380 CALL HCHAR(17. 20. 32,12) 

1890 CALL HCHAR(17 .21.41) 

1900 CALL S0UN0(200. 110.0) 

1910 L-17 

1920 C-22 

1930 tt-'COLOKNE' 

1940 GOSUB 2550 

1950 CALL «T(0,C2.S2) 
1960 IF S2-0 THEN 1950 
1970 IF {C2<49)HC2>S7)-I THEN 1880 

1980 CALL KCKAR(17.31.C2) 

1990 IF {L10L2)*(CIOC2)--2 THEN 2420 

2000 IF L10L2 THEN 2200 

2010 IF CKC2 THEN 2110 

2020 GOSUB 2590 

2030 IF CA<CD-4 THEN 2420 

2040 GOSUB 2680 

2050 CALL GCKAR(LD.CC-2.X) 

2060 IF I<>96 THEN 2*20 

2070 GOSUB 3930 

2080 CALL HOW(LD,CD-2.40) 

2090 CALL SOUNOtlOO. 220,0) 

2100 GOTO 2380 

2110 GOSUB 2690 

2120 IF CAX0*4 THEN 2420 

2130 GOSUB 2680 

2140 CALL GCNM[LD,C0*2,I) 

2150 IF X<«6 THEN 2420 

2160 GOSUB 3930 

2170 CALL HCHM(ID.CD*2,40) 

2180 CALL SOUNOdOO, 220,0) 

2190 GOTO 2380 

2200 IF L1>L2 THEN 2300 

2210 GOSUB 2590 

2220 IF L»>L0*4 THEN 2*20 

2230 G0SU8 2680 

2240 CALL GCKAR(LD-2.C0.X) 

2250 IF X<>96 THEN 2420 

2260 GOSUB 3930 

2270 CALL HCHAR(LO+2.C0,4O) 

2280 CALL SOUNOdOO. 220.0) 

2290 GOTO 2380 

2300 GOSUB 2590 

2310 IF UULD-4 THEN 2420 

7320 GOSUB 2680 

2330 CALL GCHAR( UW.CO.I) 

2340 IF X<>96 THEN 2*20 



2350 GOSUB 3930 

2360 CAU HCHAJ)(LO-2.C0.40) 

2370 CAU SOUNOdOO, 220,0) 

2380 REM "FIN OE L'ESSAI"- 

2390 NP-NP-1 

2400 GOSUB 2890 

2410 GOTO 2540 

2420 GOSUB 2890 

2*30 L-l 

24*0 C-24 

2450 W-'ERREUR* 

2*60 GOSUB 2550 

2*70 L-2 

2480 C-19 

2*90 W-'RECOMHElrCEZ* 

2500 GOSUB 2650 

2510 CALL SOURDt 200. 220.0) 

2620 CALL HCHAR(1,24.32.7) 

2530 CALL HCKM'2. 19. 32.13) 

2540 GOTO 1520 

2550 FOR 1-1 TO LEN(Kt) 

2560 CALL HOWR.CI ,ASC|SEG*(M*.1 .1))) 

2570 NEIT 1 

2580 RETURN 

2590 L1-L1-4S 

2600 L2-L2-48 

2610 Cl-Cl-48 

2620 C2-C2-48 

2630 L0*LI*2 

26*0 LA*L2*2 

2650 CO-C 1*2*3 

2660 CA-C2*2*3 

2670 RETURN 

2680 REM "YALIDE 

2690 CALL GOW(LO.CO.Z) 

2700 IF 2096 THEN 2*20 

2710 CALL GCKAR(LA.CA,S] 

2720 IF SO40 THEN 2*20 

2730 RETURN 

27*0 REM "••SCINIILLEMENI*" 

2750 FOR 1-1 TO 4 

7760 CALL MOWtLD.CD.40) 

2770 FOR 0ELAY*1 TO 100 

2780 NEXT DELAY 

2790 CAU JCHASiL0,C0.96) 

7800 FOR DELAY- I TO 100 

2810 NEIT DELAY 

2820 NEIT I 

2830 RETURN 

2840 CALL HCKAJt(L0,CD,40) 

2850 CALL SOUNOdOO. 220.0) 

2860 CALL MCHAR(LA.CA.96) 

2870 CALL 50UNO(500.B80.0) 

7880 RETURN 

2890 FOR 1-19 10 32 

2900 CALL YCHARd.1.37,5) 

2910 CALL YCHAR(14,1,32.4) 

2920 NEXT I 

2930 RETURN 

2940 GOSUB 2890 

2950 CALL ¥CKAR(2.3.32.20) 

2960 CALL HCHAR(21,5,32,20) 

2970 L-2 I 

2980 C*6 

2990 M!-*R NE RESTE QUE" 

3000 GOSUB 2550 

3010 Ki-STRt(NP) 

3020 L*23 

3030 C*12 

3040 GOSUB 2550 

3050 MJ.'PIONS." 

3060 OH 

3070 GOSUB 2550 

3080 GOSUB 3170 

3090 GOSUB 3230 



3120 GC5U9 2550 

3130 CAU tlT'.O.t.S) 

31*0 IF S-1 THEN 31K 

3150 IF C*79 THEN 100 

J1E0 IF K07f TD 1130 

3170 FOR KLAT*1 TO 700 

3180 NEIT DELAY 

3190 RETURN 

3200 FOR KLAT-1 TO 300 

3210 «JT OCUT 

3220 RETURN 

3230 FOR 1*21 TO W 

32*0 CAU HCNAKd.l.32.32) 

3250 NUT I 

3260 RETUtst 

1270 SOSUJ 3230 

3280 1-21 

3290 C-2 

3300 M$**LE JEU C0N5ISTE A ESSAYER OE* 

3310 GOSUB 2550 

3320 1-22 

3330 MJ**MA*4ER U MUINUH OE PICKS.* 

3340 GOSUB 2550 

3350 GOSUB 3170 

3360 GOSUI 3230 

3J70 L*21 

3360 W--ON PION HE PEUT SE OEPUKER* 

3390 GOSUB 2550 

3*00 L*22 

3410 NJ-'QU'EN SAJJTANT PAX OESSUS* 

3*20 GOSUS 2550 

3430 1-23 

3440 C-6 

3450 Mj-*SON Y01SIN IMMEOIAT.* 

3*60 GOSUS 2550 

3470 GOSUB 3170 

3480 GOSUB 3230 

3490 L*21 

3500 C-2 

3510 MJ-'CELUI-CI DISPARAIT TANOIS CW* 

3620 GOSUS 2550 

3530 L*22 

35*0 MJ-*L'AUTRi SE OEPLACE COMME CECI* 

3550 GOSUS 2550 

3560 GOSUB 3170 

3570 L*23 

3580 C-B 

3690 K***R£GAR0CS* 

3600 GOSUB 2650 

3610 REM "TI/99 SIMULE IE JP- 

3620 CALL HCHASflO.13.40) 
3630 CALL SOUND [200.110.0) 
3640 GOSUB 3170 
3650 10-10 




3660 CO- 17 

3670 LA-10 

3680 CA-13 

3690 GOSUB 77 SO 

3700 GOSUS 2840 

3710 GOSUB 3200 

3720 CALL HCHARdO.15,40) 

3730 CALL S0UN0(20O. 110,0) 

3740 GOSUB 3200 

3750 LO-6 

3760 CO-15 

3770 CA-15 

37BO GOSUB 7750 

3790 GOSUB 2840 

3800 GOSUB 3200 

3810 CALL HCKAR(8.15,40) 

3820 CALL SCUNDI200. 110,0) 

3830 GOSUB 3200 

3840 GOSUB 3230 

3850 L-21 

3860 C*4 

3870 «-*l 2 3 « 5 6 7 B 9* 

3880 GOSUB 2550 

3890 CALL HCHAS(6, 15.96) 

3900 CALL HCHAR(8. 15.96) 

3910 CALL MCKARdO, 17.96) 

3920 GOTO 1160 

3930 GOSUB 7760 

39*0 GOSUB 2840 

3950 GOSUB 3200 

3960 RETURN ■ 



ZX81 

51 1'on n.i pas i.i 
carte OS SOUND, entovei leu ll 

gnes avec les variables XX. YY 
et, par excmple. II a 22. 6t. 1 71 .... 
sauf 16-10 et 1650. 

TANK 

SI I'on n'a pas la carte QS 
SOUND, enlevor lei; hqncs nvcc 
les variables XX, YY 

- Probleme des caracteres on 
Inversion video s'obtient par 
SHIFl el 9 puis In . .u.n !.m\ p.n 

exemple. en 9005. tairo shift ot 

■ ■ Hi 1 r-I It 

- 901 tt corccspoitd a 4 Invat 
sion video. 

- Toutes los minuscules sonl en 
inversion video, pai example, II* 
gnes 260 a 271 . il s'agll des chit* 
Ires de 1 a 16 

-i Igne 250 a % esi equivalent 
a 10 
LlgneSTi a^-as'ecritiO-?. 



MOT LE PLUS LONG 



d'orthographe. Soyez honnete et bonne chance! 



Denis BONOMO 



L'interet du programme est qu'il permet dejoueraujeu 
du mot le plus long contre I'ordinateur et que ce der- 
nier apprend au fur et a mesure que I'on joue avec lui. 
Plus vous jouerez et plus il connaitra de nouveaux 
mots. 

Au depart il faut, bien sur, lui en apprendre quelques- 
uns.disons 200 ou 300, selonvotre courage, qui seront 
patiemment introduits avant la premiere partie. Avec 
une memoire 1 6 K, le ZX pourra en apprendre jusqu'a 
500. Les mots feront, au maximum, 8 lettres. 

Dans un premier temps, vous allez taper les lignes du 
debut du listing, avant la ligne 100. 
En ligne 1. vous ecrirez REM suivi de 64 espaces ou 
caracteres. Cette ligne recevra, par la suite, une rou- 
tine en langage machine. Voici la ligne 1 avant transfor- 
mation. 

1 RCM 

Apres avoir ecrit les premieres lignes, faites RUN. La 
machine vous demande la zone de memoire a remplir. 
Vous pouvez par exemple repondre 1 (new-line) puis 

200 (new-line). 

aV05RTCMDlNE2UOfi«riCl!Lr.JURMEUBeW 
TILPUMOrL30RBTCOMUCrCRHBLCCHOeSL 

ONuxoMLiNoepsniBMCCTOPOcr-MURSNOe 

CUO ZKUNAOST XRHTE 

La machine va ecrire un nombre et attend que vous 
entriez un mot (jusqu'a 8 lettres) suivi de new-line, puis 



passera au suivant. Apres le dernier mot, un STOP est 
execute. Faites alors GOTO 84 (et new-line) et intro- 
duisez une par une chaque lettre de la liste (suivie de 

new-line). 

Sauvegardez maintenant ce travail (SAVE "MOT"), sur 
K 7, A partir demainenant.il nefaudra jamais plus faire 
RUN. 

Entrez, a la suite des premieres lignes. tout le pro- 
gramme et faites GOTO 6000. 

Faites alors GOTO 965 apres introduction de la der- 
niere ligne. La machine vous proposera de lire sa 
memoire. Repondez N ou NON, pour cette fois. Elle 
vous indiquera la marche a suivre pour sauvegarder le 
programme. A partir de maintenant, le programme se 
lancera automatiquement a chaque partie. 
A chaque fois que vous jouerez, la machine, si elle a 
appris des nouveaux mots, vous proposera de sauve- 
garder son nouveau dictionnaire, ce que vous ferez en 
suivant ses directives. 

Le temps de reflexion est de 45 secondes. Passe ce 
temps, vous avez 10 secondes pour annoncer votre 
nombre de lettres (0 a 8), fautedequoi, vous sereztraite 
de tricheur. N'appuyez pas trop brievement sur la 
touche numerique correspondante car la boucle 
BASIC de saisie est lente. Le new-line est inutile. La 
machine controlera que le mot que vous proposez est 
fait avec les lettres tirees au sort. Elle ne peut, bien sur, 
pas contr6ler I'existence reelle de ce mot ou les fautes 

11 



16 K 



1 HCM IK2 G05UC 



HHDUflL Ufcmi 



rob ?OT I 'JUL ** STOP «T Tfi 



■MOT .LONG" 



O REM 

XO l-CT Z*«—30/O0^00" 

13 REM POUR MODiriER UNE ZONE 
<:>K LP. MffMOIRP DICTIOMMniRCrnXftE 

SOTO 45 

IB REM 

30 DIM X* I 1131 

30 LET MMS-0 

36 LET UM3-0 

4.0 DIM f>* 1300,01 

4B PRINT 'ZONE DE MEMOIRE A RE 
•iPLIR 7" 

SO INPUT LI 

55 INPUT l_3 

SO FOR I-LI TO LS 

03 SCROLL 

PB PRINT I, 

70 INPUT DO <I1 

75 PRINT 1>»(I» 

OO NEXT I 

|| cj -. 

OB *>TOP 

SA FOR 1-1 TO 11a 

OO INPUT XO IK 

SO PRINT XIIII, 

•net NEXT I 

9a STOP 

IBB L.ET Tlm» 



Lie i'i 



a»0 



& 



& 



l%0 PRINT "l_C SORT ft CM C LD! 

C ""E1T " 

i*« let K.nrr irnd>:" . i 

nr. Wm o«i to 10 

150 ir K-S T M EM P OT O 170 

155 PRINT "R *MI DE JOUER" 

155 GOTO 400 

170 PRINT "R )*HH DE t'.nrr. 
■ .i.,' ; 'i ■ ..■■:. 

HI'j I'Hllll 

410 LET noZNI IHIIlMlW) tl 



:.!!,!<■ 11. iqt- /'. 



GESTION GRAPHIQUE 



AET| 



■ 



Possesseur de la carte graphique haute resolution du 
MZ80B, ne perdez ptus votre temps. Voici un pro- 
gramme qui elimine tous les calculs fastidieux et sup- 
prime I'aspect rebarbatif de la fonction PATTERN. 
I va vous permettre de creer tous les graphismes que 
vous pouvez souhaiter, aussi bien un nouveau jeu de 
caracteres que la carte du monde. en passant par les 
bandes dessinees. 

I vous suffit de dessiner dans une grille grand format. 
tout simplement en "allumant" des cases de cette 
grille avec le pave numerique. le programme vous res- 
tituera le motif realise en taille normale sur I'ecran 
graphique. 

Une fois cree. le motif peut etre modifie a volonte, 
memorise, liste sur imprimante ou enregistre sur 
disquette. 

Si le dessin a creer depasse la taille des grilles propo- 
sees, il suffit dele decomposer, le programme permet- 
tant d'assembler plusieurs dessins. 
Vous pouvez egalement saisir un motif en valeurs 
numeriques, recuperant ainsi vos graphismes deja 
existants. 
Bon graphisme! 

Configuration necessaire: MZ80B, 64 K, 1 page gra- 
phique, disquette. imprimante et disk Basic SB-6510. 



> FONIB*l 10 (A'8IA/8I 

) ii>nio»i€».' ra«r«-?3i 
■■fruit ti i t«*l8>,lf 

i HEM 19 

I return 



. PROGRSHUE GESTION 




ERROR GOTO SOOOO 
EN>C«9>S4>24 

5 DIH £jh:S«> .»<9i 
iP^ I! >C.O0 
SO TEHPO J 

'B REM '- TT 

Ml hc:»m 
10 PRINT STRING*!'-'. 
20 CiVPSne 4.3:PPINT-C 



■ - ■ ■ 

.... 

60 CURSOB 3 • 22: PRIM 

TO CURSOR I4.23lfftl 

SO OJPSQ* 24.21 :bri 

90 Kl •■■:- ,:■-■■■■ 

l«5 *»/•--: 

290 G05UB lOO^ 

210 CURSOR 26.0 :PRI 

-2'.> GOTO 1130 

300 RE" --■ 

SOU 26.0 

w :*.07 

IWSOR ; E IPRIWT'T* 
mmttrf 

S20 CURSOR 2*. I2:P»rMT-Pa 

OH 2ti lOePRIMT* 

i*0 CURSOR -■:.■ l I rpftlMF" 

35'J CURSOR 24-l2 = PftIHT- 

. }t PRIST" 

IR U, H;«1NT' 

■■::■■. ■ 

miMT' 

.',.18:PRINT 

A'I'J RETURN 

500 R£«- 

510 COHSOLEC'O 

. 

■■ ■ I 

■ 

■ 
■ 

■ . : •■ - 

590 C'JPSOf 0.201PRINT *l 
590 On '*: I" - '» = *- THEN 

:000<J 
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JEU DE LA VERITE 



Cet aimable divertissement pour lamille en quete de 
sensations fortes permet, a peu de frais, de savoir le 
mal qu'autrui pense de lui. Un ordinateur n'invente pas 
de mensonge! 

Francois CHA PIN 



?c 



\l& 




19:CIEAR : PRINT = 

PRINT : INPUT 'N8 JO 
UEURS (HE 2 6 6) '!F 

29: IF F<2 OR F>6 GOTO 1 


39:DIB B«(F)»9,C«<e)*29 
.D(F.18).E(F),I(F,18 
)»C(F> 

48:F0R A=l TO F: PAUSE 
•NOP! DU JOUEUR •: 
S X R« A: INPUT B»<A): 
NEXT A 

58:REST0RE 

S8:F0R 2=1 TO 18: READ 
C«<8): FOR A=I TO F 

78:PRINT B*(A)i', TON C 



ARACTERE*: PRINT 'ES 
T-IL PLUTOT..." 
88:PRINT Ct;' ?": INPUT 
•IE 1 A 18 ? •iD(A>2 
> 
98:IF B(A.2)<1 OR 1<A,Z 

)>18 GOTO 88 
188:KA,Z>=8: FOR G=l TO 
F-l: PRINT 'LE CARAC 
TERE HE ";B$(A>: 
PRINT -EST-IL PLUTOT 

!19:H=8: PRINT CJi' ?•: 

input "de 1 a 18 ? • 
;h 
128: if h<1 or h>18 goto 



118 
138:I(A>Z)=I(A.Z)tH: 

NEXT G:KAiZ)=I(A,Z) 
/(F-I):E<A)-D<AiZ)-I 
(A>Z>:E(A)= ABS (A) 

149:F(A)=F(A)+E<A): NEXT 
A: NEXT Z 

158: RESTORE 

168: INPUT 'In?RIfIANTE=l' 
iU: IF U PRINT = 
LPRINT 

178: FOR Z=l TO 18: READ 
CS<B>: PRINT «<«;>: 
FOR A=l TO F: PRINT 
BS(A).D(A.Z): PRINT 
•(•! STRJ I(A,Z)i'>' 



: NEXT A: NEXT z 
:F0R A=l TO F-l: FOR 

: = -.-: 10 F: IF F<AX 

F(J) GOTO 288 
:F(8)=F<A):F(A)=F(J): 

F<J)=F(8):3S(8)=BI<A 

):B$(A)=3S<J>:3$<J>= 

B$(8) 
:«EXT J: NEXT A: FOR 

A=l TO =: PRIHT 35<A 

). STR$ F<A): NEXT A 

: END 
:DATA •A3S0LU/M0DERE' 

i'SECRET/LIANT-.-DYN 

AMIQUE/INACTIF' 
:DATA •AUSTERE/GAI'.* 



-::; -: iRftTUIT*.' 

VULGAIRE/DISTINGUE 1 
92e:DA'- iENEREUX/EGOIS 

"E - ■ '-•4u"i:>.'s:"=_E _ 
.•connuN/sPECiAL- 

938:3ATA 'VANTARS/KOJEST 
E-.'OPTlniSTE/PESSI- 
ISTE'i'BECOHTRBCTE ! 

0INCE- 
949: DATA "TERRE A T ERRE/ 

REVEUR'i'DOUX/VIOLEN 

T'.-DECIDE/INDECIS- 
958:DATA -assure/t:-:te - 

••dus/tendre - >-naif/ 

sceptique- 



TANK 



Vous etes un malheureux soldat muni de 5 grenades et 
il vous faut detruire le tank qui vous tire dessus avec 
son canon de gros calibre! Heureusement, vous 
pouvez vous cacher dans les trous creuses par vos 
grenades ! 

Ce jeu se joue sur un PC 1 500 muni de ['extension 4 Ko 
(CE 1 51) ou Ko (CE 1 55). Si I'on ne dispose que de I'ordi- 
nateur. supprimer les lignes Set 1180 a 1220. Modifier 
egalement les lignes 1000. 1010, 1160 et 1170 comme 
suit: 



Le but du jeu est d'abattre le plus de tanks possible 
avec les trois soldats dont vous disposez. Chacun 
d'eux est muni de 5 grenades, chaque tank abattu 
donne trois grenades supplementaires et les deux der- 
niers soldats recuperent les grenades emmagasines 
par le precedent. Pour deplacer le soldat. utiliser les 
touches 1 et 3; pour lancer la grenade: touche 2 
(appuyer plus ou moins longtemps sur cette touche 
module la distance du lancer). Attention, la grenade 
doit tomber pile sur le tank, n'oubliez pas qu'il est 
blinde. 



Francois EDELIN 



I000: "A":D.JM T*<0 
>*24, B*<2>*] 
8 

U60:CLS :BEEP 1, 



50,980: 
CURSOR 3: 
PRINT "GSrlE 
OUER"; 



1010.-REA0 C*, D*, A 
S, B*, B4C0J, 
*U>i T4<0; 

1178: WAJT :PRINT 



PC 



1500 




l : GOTO ia 
2:D6T6 ' 

"088068". "746E 
74", "503858" 
3:C6T6 "6075667C 
7E7C6fi7568 , ' l "6 
062794C5C4C796 
260", "6B60506S 
78787E7f:7E:7A7fl 
68" 
5:D6Tfi ■1838383C 
3C3C313-118' 
12:D6T6 8,8 
13:0016 8, 4,0 
14:D6T6 8, 4,4,0 
1S:06T6 8, 4,2,4,0 
16:0616 8, 4,2,2, 4 

>0 
I7:DAT6 8, 4, 2, 1, 2 

, 4,0 
I8:D6T6 8, 4, 2, 1, 1 
.2,4,8 



CERISES 



Le temps des cerises est passe? pas avec votre 
PC1211 ! Vous pouvez manger une. deuxou trois ceri- 
ses des grappes que vous propose I'ordinateur. Le 
gagnant est celui qui a mange la derniere cerise. 
Attention! I'ordinateur est gourmand! 
(Lancer le programme avec SHFT "A" en mode DEF.) 



10:"A"BEEP l: 

PAUSE "**JEU 
DES CERISES 

**" 
20: IF X=0INPUT 

"UN HOMBRE S 

VP: ";x 
30:X=ABS X:X=TX 

+K:X=X-INT X 
40:X=X*23.8:X=X 

-INT X 
50:X=X*9+16:Y= 

INT X:Z=0 
6.0: BEEP 2: IF Z= 

1THEN 195 
70:PRINT "IL Y 

A "WCERIS 

ES." 
SO: BEEP l: INPUT 

"COMB I EN EN 

HAHGEZ-VOUS? 

"iM 
90: IF <M<1>+<M> 

3>=0THEN 120 
100:BEEP 2:PAUSE 

"VOUS DEVEZ 

MANGER " 

110: PAUSE "1>2. 

OU Z CERISES 



Jean-Luc MESPLE 

":G0T0 80 
120:M=INT M:Y=Y- 

M 
125: IF Z=1G0T0 7 


127: BEEP 1: PAUSE 

"IL Y A "iYi 

"CERISES" 
123: IF Y=OTHEN 2 

80 
130:G='tV4:IF 'G- 

INT G>=OTHEN 

230 
140:H=Y 

150:H=H-I:I=H'4 
160UF (I-INT I) 

=OTHEN 180 
170:GOTO 150 
180:J=Y-H 
190:Y=H 
200: IF Y=OTHEN 2 

60 
205: BEEP 2: IF 1- 

1 PAUSE "JE M 

AHGE UNE CER 

ISE "SGOTO 2 

20 
210: BEEP 2: PAUSE 

"JE MANGE "; 




1211 



Ji "CERISES" 
220:Z=0:G0T0 70 
230:X=23.3*X:X=X 

-INT X 
240:-J=X*3+l:J= 

INT J 
250:Y=Y-J!G0T0 2 

10 
260: BEEP 2: PAUSE 

"DESOLE! VOU 

S AVEZ PERDU 

H :GOTO 300 
270: BEEP 3: PAUSE 



19:D6T6 8,4, 2, 1, 1 
, 1, 2, 4,0 

30:"F": IF U>0THEN 

30 
40:FDR U=2T0 9 
50: IF INKEY» <>"2 

"THEN 70 
88:N£xT U 
70: RES TORE U+9 
88:RE00 6, B, C, 0, E 

,F, G, h, 1:S=0 
85: J=J-i: CURSOR 2 

2:PRINT J 
90:GOTO "C" 
|00:"L":a-P«2:P=l 
1I0:GCURSOR 0: 

GPR1NT 84(Q>; 

BEEP 1,60, 1 
128:0=0-3: IF O<=0 

LET 0=8 
130: IF POINT 0<96 

LET P*2 
148:60T0 "C" 
200:"R":Q=P-«?:P-1 
210:GCURSOR 0: 

GPRINT 8*CQ>: 

9EEP 1,60, I 
228:0=0*3= IF 0>=11 

7LET 0^1 17 
230: IF POINT 0(96 

LET P=2 
24B:GOTO "C" 
300:"B":FOR N=0TO 

2 
3I8:GCURS0R fi: 

GPRINT B»<N) 
320: BEEP' U, U*180, 2 

8 
3301NEXT N 
348: RETURN 
480: T: IF R>=117 

OR 0-R<=9THEN 

910 
420:n=X-O 
430: IF P=16ND flJ-2 

OND f1<6THEN 91 



688: IF U=1THEN 638 
618: IF 2<RND 40 

THEN 638 
628:UI=],X-R*1I 
630:'i'=125«ND POINT 

X:GCURSOR X: 

GPRINT Y 
640:X=X-»5: IF X>=11 

7LET W=8:G0T0 

690 
650:Y=2OR POINT X: 

GCURSOR X: 

GPRINT Y:BEEP 

1,20, 10 
630: IF U=8THEN 888 
700:n=s-3,UM: 

60SUB "9":N=S- 

R 
718: GCURSOR S: 

GPRINT T 
?20:S=S-3:1F SO 

THEN 780 
730:U=U-1:1F g=0 

THEN 768 
748:T=8<U)0R POINT 

S 
758: GCURSOR S: 

GPRJNT T:BEEP 

1, 5, 5:G0T0 800 
760:M=S-3,U-l: 

GOSUB "B":N=S- 

R 
770: IF N<=96ND N>= 

3THEN 908 
7B0J IF J(a0THEN 91 



820: 



I: "C":GCURSOR 0: 
GPRINT B*(P) 
2<RND 20 
THEN 858 

830: IF 2>236N0 U>0 
6N0 S-U*3>R-*12 
6ND RNO Z>20 
THEN 858 

040:R=R+3:8EEP 1, I 
0, 10 

850: GCURSOR R: 

GPRINT T*C0> 

868: GOTO " J " 

900:n=R*3, U=2: 

GOSUB -B-JR^O, 
U=0, Z--=2*1,K=K-' 
1, J=J+3: CURSOR 
22:PRINT J: 
GOTO "I" 

9 1 8: BEEP 4, 280, 188 

920:FOR n=8T0 119 

930:GCURSOR H: 
GPRINT (122- 
POINT m 

948:NEXT fl 



958: IF L< 
69 

966: GCURSOR < 117*6 

tL>:GPRlNT P» 
37i3;L = L-i:GOTO 111 



19)8:RE60 CS,0S,6 
*,8*,BS(0>, B 
»U), T*(0), 8 
»(3) 
1020:CLS :B«<2)=C 
»-D»- 
M61T 
1830:FOR H=l TO 16 
1840: CURSOR 3 
1858:PR1NT (LEFT* 
< "TrtSK-COflBA 
T 6fiME",n)J 
I860: BEEP 1, 10, 40 
1078:NEX1 PI 
1080:U6IT 108: 
PRINT 

: leetK ii. i -■, i e 

I ::.'::» rl, ■ 1 t-l: 
IF L(«1LET K 
»=0«:1F L-0 
LET L*=0* 

llll:U6IT 8: 

GCURSOR 120: 
GPRINT D»*L» 
*D»*K» 

|''.'.:US1NG 
'*■»••'■ : 
CURSOR 22: 
PRINT J 

11 20: FOR H.-0TO 1 1 
7STEP 3 

1138: GCURSOR fl: 
GPRINT CI: 
BEEP 1, 1, 78 

1 148: NEXT II 

I I58in=0, U»0,r«0, 
0=1I7,P*1,W- 
8,Xfi8:R6N00r1 
iGOTO "J" 

I160:CLS C SI EP 1, 
58, 988: 
CURSOR 2: 
PRINT " GM1E 
-0UER":W61T 
100: PRINT 

I 170:UOir 0! 

CURSOR IB: 
GPRINT BM3) 

11901FOR n»0TO K 

1130:BEEP 1, 50, 10 
0: CURSOR 13 

I200:PRINT fl 

12I8:next n 

1228:WflIT :PR1NT 

:ENO 



280:PAUSE "FELIC 
ITATIONS 

290: PAUSE "VOUS 
M»AVEZ BATTU 
1 1 } ■ 

300: INPUT "UNE A 
UTRE PARTIES 
(0/N)"iZ$ 

310: IF Z*="0" 
THEN 30 

320: BEEP l: PAUSE 
"AU REVOIR.. 




BIORYTHMES 



Nos fonctions rnusculaires, nerveuses et intellec- 
tuelles suivent des rythmes reguliers tout au long de 
notre vie : 

- cycle physique de 23 jours; 

- cycle emotionnel de 28 jours ; 

- cycle intellectuel de 33 jours. 

Pour un jour donne. nos 3 cycles peuvent allerdu posi- 
tif au negatif en passant par 2 jours critiques: 





Penode 

de decharge 


Periode 

de recuperation 


Jours 
critiques 


cycle 
physique 


du1" 

au 1 T jour 


dm? 

au 23* jour 


1" et 

12" jours 


cycle 

emotionnel 


du 1" 

au 15* jour 


dm 5" 

au 28* jour 


1°' et 
15* jours 


cycle 
intellectuel 


du 1" 

au 17" jour 


duir 

au 33° jour 


1" et 
17* jours 



De quoi planifier vos emotions, rentabiliser vos brain 
stornings, et surveiller votre forme ! 



1 REn 

2 REF1 

3 REn 9!C> 
i Ren 

7 »£n 

3 REfl 3 I i 



233 r 



i to ; 



! sen 

5 sen 



II R£nii--«; 
-■■ REItra ratlEKTAIRES in 

-■-IlMlIIIIIIIllllllIItl 

14 BlrlTDC4,3I) 

15 LORES8:Ir*4:PrV£R8 

28 PR[NTCnR*[[7;;CHR«;4J ;CHR«:28) 

25 PRlNTCHRiC12) 

26 PL.OT9,3,6:=LQT8,4,6 

38 PRINT :FJRIr.T:PRINTO<R-t27J : N'SPCCSl"* 

t« aiORTT^r: ... 

35 P-::N7CFR*t4j:PRINT 

30 PL0T8.6.1 

48 PRINT" BCMJGuR...-:UAiIS8:=i_CT8,e,3 

■ 
<5 MINI" Ou*lqua> .nlofe.ai.or., *ur l.i 
b s.: :-- . 

-• b .0 *ll 'a. I rlP 3 eye I*) " 

:pf»N1 

eys .* phyi ^ u * C23 Jour- 

m*t .onn.i [28 jour- 

)" 

nt«l l«etu*l [33 Jour. 



38 PRINT' J* talcult e o. u( j „„,,,( 

SU'Mi" 

38 PRINT-voue tltt row- un* par led* 

./;.2: B LOI0,22,2 
■ ■- :p»JNT"L«. jouTi d. tonn. ! 
ton! toh«H-:pRIffT'iiu s-a-h 

IBB PRJNT'ol *n bat." 

185 PLOre,25.5:PL0T5,25,CHrT«[96)*- L DUO 

OKT-BKAENS' 

233 P£r>i«*i*«i*-. *«*■**■---*-«« 

282 REHEr* CAPRCTERES ********** 

283 =En«iiiiimJJa»W»»»"»' 

21a =DP''-:ro3 
228 -=-'-:.■ DC 



2*0 READ EE 

258 POKE OO.U.EE 

268 NEXT U:NEXTT 

273 !FAU=4THENAU-0:GOTO1208 

590 REfl]»mililt«tlliii.miI 

532 REn*.* flUSIC millilittiUI 

585 REniiililtilitliitiiiiiuiii 

510 MUSIC 1.3. 1 1 I0:wAIT20:[iaSUB788:MUSICl 

.3,1. 10:UA]T2a:GOSUB7a8 

520 "US I C I, 3.1. ]3:WfliT2a:mJS[Cl,3.8i 10 :W 

AIT48 :G0SU8788 :nUSICl . 3,6, 1 

3:UAIT40 

530 nuSICl,3,8.]0:UflIT48:GOSUB780:nuSICl 

,3,a.!B;UflIT«8:nUSlCl,4.1,l 

8:WA1T68 

543 nj5ICli3, 18, !8:wAIT28:nuS!C1.3,6, 10: 

UftIT20:GOSUB7BO:f1USICl,3,S, 

l0:14flIT28 

558 ruSICI.3, S8,:3:WAiT20:nU5ICl,3, 6. 10: 

WfiIT28:nusiCl,3,3, !8:UAIT30 

560 nusici.s, ii.iB^oireainusici.s.a.iB: 
UAIT38:rlU5ICl .3.5,iB:yAIT15 
570 nUSlCli3,B. IBHMITIS 

^83 PI_»'ra,0,B,a:GOTO1008 

788 MUSIC!, 1,1,] fRETUrW 

1000 UfUT480;P[NG 

1838 PLOT8,0,3:PLOT1,B, 17:PL0T3,0," TAPE 

^ [RETURN] PQuR LA SUITE" 

1840 GE7A* 

1288 RErmti'iiiiiiriiriiriuii 

1202 R£n*-» ENTREES tittutuui 

1285 PErliiiliriilltiiitiiiiiirii 

1287 GOSU86080:CLS:1NK3 

1286 PLOTS, I, * 
!2I8 PRINTsPRjm-Eolrti voire dal* d- no 



223 GOSUB9088 
238 NA-N8 

235 rm*m-2 1 iFnn< i THENm-m* i ? -.m--'m-] 

248 AN4-SIR*<Uu) 

258 CZ-lNT[UU^188) 

268 U-l*UALtRIGHT«tAC(-.2)! 

270 B?=lNT!2,6*rm-. I3)*J0*UW* JNT(UU/4 ) • 

riTtCZ/4)-C2*2 

288 JO«[NTUBZ.'7-INTfB!'7)J*7».I ) 

230 JC---J0-; 

300 FCPN=irOJO 

313 REAOJOt 

328 NEX1N 

328 CLS:P0K£«BB83,l ;PR1WTCHR«(4) 

32S PlOT8,1,4:PlQT3,2.4:PLOT0.5.2:PLOT8 



i ., i-j 



ftT 



1335 PR[NT;PO[»r;PRINTCHR*r,27); 'H'SPC'iB 

MOM 

1335 PPHUCHRtla] :PR[NT :PRJMT :PRINT iPPlM 

Tiunirios 

1348 PBI-ir £n!r, 2 la -o.i tt ['uint) d* 

134S PRIMT 

1358 JO- I :GCSUB9038 

1360 Nfl-NEt-riA-l 

1385 PR1NT:PRIHT 

1378 PRINT "Li l/*inil"iv«u« aur«gr)*tWt" 

1371 UOIT208 

1372 PIHG 
1375 PRINT:PR1NT;PRINT:PRINT:PR1NT:PR1NI 



"Pour 

[RE TURN }- 
1380 GETft* 
1365 F1-0 

1 333 iFnn=40Rnn=60Rnn»soRm- 1 1 ihenf i -33 

1480 lFnri"2THENFl-2B 

1418 JFFK28THENFI = 31 

1415 P0KEiB593,4:PD-:i*SBBa, 12 

1420 E-23:rtf» = -: C,t 1< ph>»tvit":fVM-'! a 

:[K-3:GOSUB7e80 

1438 E-28SrT£*"'B Cyela t»ol I onn« I " :0n»=- 

«":1N = 1 :G0SL8?B88 

1448 E = 33:n£*r-_ Cyc i, ini* [ l«e t u . |- ififl* 
= -_":[N=5:GOSUB7000 

1442 !NK2:PL0TB<26,5:PQKE«BB83,3 

1443 PL0T2.26,- 

1445 r£«**U01»l l*i tfO.j iycl.1 : 9 _" 

1446 FQRG=0TO9:PLOT3,Q,a:nE>fTQ 

1447 FaR0=lirGI9:PL0T3,0,l :NE!«TQ 
1440 PLOTS, 10,3 

1449 TY=4 

1458 E=23rrW« = n :":GOSuB7040 
1468 E-2B:fiR*'- , 8":GOSUB?848 

1471 UfilT688 
!477 PING 

1473 PLOTZ^e.-Pour la lull* toftr.tRETU 
RN1- 

1475 GETP4 

1588 REnlllililJimmilllliii 
1505 R£n*« TflBLEFill UflLEURS i*« 
15IB REniiliiKir.n.mmmi 
1528 CLS:P0KE«BB83,5:INK4 
1525 PLOT8,1,2;PLOT0,2,2 
1538 PRjNT:PRINT"namt*fiar 



1028 PL0T8.5.2;Bl0T4,S,'S> tyl.twn JPE 

■ ■ 

1638 PLOT,"'.:. 

10*8 &•">• 

l'B59 IFfld-t:>"»U3iIHE"5iOT01S«e 
IB60 PRIHTI - ' ■ ■ !N«4 

1878 PR!MI:PP!NI:PRlNTiPRl'i: 

:PRJNICMR»(27JrN-SPC(6r f 

I6S8 t.''UI?88;CLS:PRINTCHR((4);C'«'«[17Ji; 

nRtt29};PWEPl:EHD 

1980 PLOIB, 18, MPLOT2,10,-r«-« Mfignn.i 

tap. I (REIURN)- 

1910 PL0T8,)4,2:PLOT2,|4,-Hut.» =,.|or-, 

1928 GETft* 

1338 lFPt-CHRi(13)Tr'£nTT-e:CLS:GOTOI348 
[940 TTj.6:ftU-4:RESTCREiG0t0288 
5B83 R£nil(lllilliiii>iiit>lI>I 
8082 REnm l EBE LIGsrut 
6885 REniitiiiitiiiiniiiititti 
6313 PGVEiHS82,I2:P0p;E«eB83,5 
6028 F0RM-3I016:REflO« 
6033 P0r(EaBSBC'M,x2iNEXTH 
6840 RETURN 

7330 RErllilitiiiiiiiiiiiiiiiiitiiiii 
7818 REn«»* OESSIH ■iiiiitiiliitiui 
7828 Rtniiii'iiiiiiiniiiiiiiiiiiiii 
7938 GO 5UB B8 83 

7835 FGPa=8TOI9:PLOT3,0,IN^£>lQ 
rB48 'F-'.- 
7858 F0RX-1T0FI 
7359 X9=XB-1 
7078 UX'XS^E-INItXB^E) 
7088 SE'ta-INT[SiN[2*P|iUX)«9) 
78B ] I FPRt=- ; - THENTOt I , XW2-SE 
7082 lFflfit="8-TMENT0t2,X)-22-S8 
7983 IFftft*=-_"TH£NTG[3,X)'22-SE 
7890 PL0TX*3,SE.HP« 
7108 NEXTX 
7185 PLQT8.24.6 
7118 PL0T3,24,nEt 
7J15 IFTT-4TKENRETURN 
7116 Ufl!T259:PIMG 






mx rtutv 

■■■ 
■ 

•4JOO 1FPM< I TSTORflK. •»••: — *■* 

1-aiNCORRECTIH- :/'-' 

TCJ3848 

- 
9870 r*-Irm3t».2SJW 

•><•■••>' ..!..... 

• ■ . ■ t ■ ■ , . i > . 

< iiMiiiittiri.rr 

10030 CWTA47872. 17.45. 33. T3.S3, 3*. W. 30 
18848 Bttltot ..9.9.8 

■ . ' 
■ 
,04,04,04 



'1)9 F 



:,:■■•. : 



7120 PL0T2,26,-Ca U 'o* fu.^ar 

TURN)' 

7138 GET A* 

-:■::■' -;■..--. 

8808 SLni«ii"i>miiiimiii 

9819 REn«t» TRACE OU CADRE i 

B028 8Era"'"'»iiiiiiiiiii 

2 CLS 



:---. 



■RIM 



1543 PRINTiPRIN: 



1568 FORTT-1T0FI 
1573 C1-T0C1.TT) 



8B25 PAPERS :|NK2 

683- F0RI=4TO34 :PuOT 1 . 13, " -" ;N£XI 1 

8048 F0R]*1TG9 

8358 m=f1ID*(5TR»( 18-1 1,2, ) 1 iPL0T2, I,T] 

E353 N£xri 

8878 PL0T2, 18, 'B" 

8980 F0R!=I1T019 

B390 Y!«.nlD«(S!Ri[ I - IB. 



2,18J:PL0T2. I 






C2-ro[2,Tri 

C3^T0t3,TT) 

O0i = (ClfC2fC3V3 
PL0T2.UtIT.STP*[Tr) 
PL0T12,U-TT,STR4(C1! 
PL0T]2,U*TT,3 
PLGT2a,J.ir,SlR*CC21 
PLOT20,U'TI. 1 
PL0T2a,U'7r,31P»fC-i) 
PLOT28.WTT.5 
PLQT35,UHT.STR»[00') 
Pl.0T35,UtTr,4 
IFTr-l6Ir-ENGOrO1780 
NExrTr;G0T01748 
PUOT0,26,1 :PL0T2,26,"P 
■ [RETURN1" r»INS 
GEtP» 
F0RUU-61O27:PRlrir" 



1738 NEXTUV;U«-12:GOTO1670 

1749 uAH388:Pl.OF0.26.3:PLOI?,26. a POUR 
A SUITE IRETuP'il !r*IH0 

1750 GETA»:ClS 

IB00 RErt«** F1M IIMIilliilniMiili 
1B81 P0KE4BB83, ! : |NK3 

1810 PRINT sPRjHTiPRtMT" Uoul.I-voira un 
ulf« bto??7- 



8128 PL0TI.I5,"-" 

8130 F0RN-4I012 

B14B TK-rtlO»(STR4{N-31.2,l 1 

8158 PLOTN,2B.TH 

91 BB NEXTN 

8165 FORN-I2T034 

8170 r[«=STR*(N-3) 

B1B8 T2«^niDt[T|«.2.1) 

8190 PL01rV,73.'74 

82BB r2i=n]o*ta»,3, 1) 

8210 PLOTN.21.T2* 

8228 NEXTN 

8233 RETURN 

9908 Rimimiimiiiuimiiiii 

9882 PEMIH COLCUL NBRE JOURS >« 

3305 REniKiiiiHmiiiniiiiiii 

9807 PRINT 

9010 INPUT "Tap*- J It jour .1 [RETURN]" 



9830 INPUT'laeai I* "o . • at (HETURNJ'iMO 
9035 IFno<10R(1fj>12rnENPRlNTCHR«(27l; T1IN 
CDRRECIS!!" : iflP ■ Z(\P :GOTO303 




Errata: 

Dans le numfiro 3 d'HEBDO- 
GICIEL, le programme MEMO- 
RIC pour ORIC 1 est parseme de 
petits carres et de signes caba- 
listiques - qui n'ont rien a voir 
avec le programme de Laurent 
CHEMLA. Notre imprimante 
nous a joue un sale tour. Voila les 
rectificatifs a apporter a ce pro- 
gramme. Mais que cela ne vous 
empeche pas de voter pour lui. 
Ligne 7 : ie signe - est a rempla- 
cer par 2. 

Ligne 1 040:3 se litcommeune 
virgule. 

Ligne 1060: - egale un 2. 
Ligne 1240; supprimer le et 
leH. 
Lignel270:lei2eslalalignedu 



Ligne 1275: passage a la ligne 

prematur6 . 

Ligne 1460: H egale :. 

Ligne 1470; SI egale K. 

Ligne 1570: C-l egale E. 

Ligne 1600:K egale O. 

Ligne 2068: (in de ligne -GOTO 

2070. 

Ligne 2090: H egale X. 

Ligne 220: - egale C. 



mz80 



?270 OOSUB 2250 
■>260 RETURN 

'-*«'• reh 

5410 CUR5GF. K».20IPRt«T*l 
T420 CURSOR 2t>,22;lNPUT ' 
7430 IP N'O THEN RETURN 
o«40 IF IM<or*f«>23SI TH( 

7450 E»IN)«E* 
•>44'; RETURN 
■«■• <-lr ■ 



Suite de la page 12 



I'JO-Xj CONtOLEC40!PP!HT CHftf (*l tCURSOP O.flFORNI ' 

10010 CURMD 0tl«F0S 1-1 to a-iif-RInt "■* I3PACE> (J 

10013 bpint VISPACE4(A>f'B'< 

10020 IF * 24TMEN PBINTlMIin aTRINO«( '■* >A*2) I 

10030 ORAPK Il.C.OI 

10040 FOR 1-2 ro * 

10050 LINE 1*8. B, ! 

10040 NEIT 

10070 PETURN 

10100 CONSOLE ■'.'!'■■ 

101 10 CURSOR '-.■'::\ 

10120 CURSOR 0t6H 

IO130 CUftSQH "■ 



• S.I 



I IK 



101 4 



OE ' 



j if ; 



S. 1*1 



■ Enr i 



6*8.1*6 



10150 IF I»*'-l* THEN CURSOR lOrlOiPRIH 

lOloO IF .*«"E- THEN CURSOR !■"" !rj!PRH,r-|]r-J||llj 

10170 001(1 ioi4fi 

;.,;..., CURSOR 0>12lINPU7 'NiHrro dofd'* d« la 

IT10 IF R-0 THEN 2O00O 

J 'J i 1- IF (N ■._. I .IN,2-*| THEN 10200 

10230 Et-EflNJ 

10240 RETURN 

10900 graph 12.0012 

1030. posinwo.o 

10305 FOP I-l TO 43 

10310 LlNE(I**l-A,0..I*AI-4. ] .'■ 

lu-j;.-. nfm 

10330 FOR I-l TO 31 

10340 LINE 0,(I*A1-A.3I7. II»AJ-A 



i oast 



NE< 



10370 RETURN 
12000 REH--- 
12003 IF LEN 
12010 f 



I202( 



IINT/I 



FOR 11-1 TO 1A/8X 



12030 FOR I2'l TO f 

I204O PRINT/P I Alu I'.'.*, ;k-J '-liri».f 

I2O30 'HI! l.'iPHINT/PtNE.T I1IPRU 

120*4 RETURN 

I2IO0 REM — - - EDITION O'UNE ORlL: 

12105 IF LE*HCfi*10B*lA/8.A/3j IMEN PRIN1 



HCR». ( I n*8l-9'I21 r 
.iiOOSUB I2300JPRIN' 
HOOSUB 12304'Pn IHT, 

:nt/Pjneit MIPRINT. 



70010 F 

20020 

20021 

20022 

20030 

20040 

20050 

20060 



20064 
70065 
20070 
20O8O 
20083 
20084 
20090 
20100 
201 10 
20200 
20210 
20220 

20233 
20236 

20240 
702*5 



CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
CURSOR 
GET 



0. 6 i PR INT- 
Or 8:PRINT' 

0. lOtPRIHT' 



1iiPRIr.T-t7) Enr 
18IPRINT'(«] FIN 

22J PRINT* Tr * 



1700. 300O. rOOOi 



■0 THEN 20030 
IF A1-* THEN 700 
IF (A1>7I THEN 70080 
ON Al GOTO 200.300. i: 
GOTO 20000 
REN ROUTINE SAISIE NUHERIOUE-- 

OET Y» 

IF •/%•'■ THEN 20220 

IF .■•■■r.Ni-ii ■ I ; . THEN 20230 
IF V»*CHR»( 71 THEN 20260 



1246 GOTO 20220 



2023( 

20260 I 

20270 I 

20730 C 

30000 t 

30OI0 ( 

30070 I 

300 30 

30040 

30030 

60000 

60010 

60020 

60030 

60060 

60070 

60080 

60090 

60100 

601 10 

60120 

60130 



CRl-CR(*CHR>IVALINlDllEt>< 1*3-2) r 31) ) 

NEIT I 

RETURN 

"En - MODULE D-ERREUR 

TENPO 7 
ER-ERNiEL-ERL 

flusic -*cooEceo*coec* 

IF CW-4 THEN RESUME 

PRINriPRINT-ERHEUR -lERNI" ,„ li,r„ "1EP.1 

TEMPO 7 

PRINI-OPEfrAf ION AVORIEE-irlUM' 

OATA *3rnt*. *-,-Pl.n d» pl4<* -..-.-tr.-. "I 

DATA -^iiiriquf SVP", "Chain* Trcp lon«u»' 



RESUME NEI 



DA I , 



f ii. 



i DATA -Do 

I DATA 'Tt>r* BASIC trop Im,,.j-,-| 
60150 DATA '7*a* Fond I On" , "NEI T tani 



1140 I 



suite de la page 7 



J"*° 



?S?SES?K r »«.ai-*«n. ■> ■■ 

7PCC IMCLiT Ttpo/n ",r* 

-'iSS IZ* MCN °° TO Vl<> 

711B PRINT , , , , " » n „,r.,-, v 




75S9 








BAfea 
















sSiS 
















Biua 


PRINT PIT la.lO.-' J ,,,, .i 'J •'('I.' 


B11B 














POP i --1 TO 00 






mi 




up (id 

-■fntfl 
.no;: 














































:;;ss 


POKC U3R "b".7,OIN 0000ii*tPi.'- I 






iiii 


rrjFt n-S TO B 






.1B» 


NCXT n a " "*" tn - aIH "IltJll 








Pur;-r u;q "t".',-ni iniuw 









UOBB STOP 



Suite de la page 11 



569 



'MT 



>k 



ZX81 



j""fli -jLBi" UETTnea 
itq'ppimt •■combicn nuet-uoua oe 

LETTRE5 7 ", 

575 C04UD 750O 

-JI95 LET K«l 

595 IF L11L2 THEN GOTO 6SB 

600 LET T3aT3*La 

6B3 tr L3 = pi TMEM GOTO 70S 

605 PRINT "U"-Hl ";LS.." LETTRE5 

506 LET UI>D|IA) 
««7 GOSUO 73© 



■335 PRINT 'UOULEZ-UOU5 LIRE M» 



■39B 

IL'BB 

r.' ct E 
'.Dip 
I020 
Ik) 30 
MOO 
'■tit? 



INPUT M» 

CL5 

If* H*= o 

POIMT "5 



ia for 



I-l TO ISO 



115 

i ra 

*ce3 



J 55 



DIM 

LET i 
fRINT 
flU SORT" 

LET 3*»"" 
LET N=0 

LET cc=-a 

LET LL=33 
fC'P.CL 165 It ,LL 

pop o=i to e 



.Tl.TflB 



504 
SIO 



LET 

let l»"M*ib: 
IE CODE tut: 

LET N=N.l 
LET X = INT <1 

LET LJ-AJH 
SCJJU6 5000 

let cc-cc.e 

NEXT O 
PRINT 

PRINT 
PRINT 

PRINT 

ECMIR" 
PRINT 
c :-=t 1 = 1 TO 62 



460 

t sO THE?) GOTO 
NOtllS. *l 



UOUS fiv'ONS : 



612 I 

615 GOTO ?©0 

620 LET TlsTltLl 

630 PRINT "QUEL MOT fiVEZ -UOUS 
ROUUE 7 " 

5iG INPUT Ft 

-..1L GOTO J..IOO 

642 LET U«=F* 

a*5 GQiUfl 7BOO 

6*6 FOR 1=1 TO 12Q 

650 LET D* (ft) >F| 

660 LET Col 

700 CLS 

710 PRINT "UOUS RUEZ 
5 . " POINTS" 

720 PRINT "MOI,J""fiI ",T2,TRB 
13, " POINTS" 

730 PRINT 

7SSJ NEXT G 

■aia PRINT 

815 IF TLT2 THEN PRINT "NOUS S 
:>HN£5 R EGRLITE" 

620 IF T1>T2 THEN PRIffT EPfiUO. 
RI TROUUE HON MRITRE" 

SH5 IF T2M1 THEN PRINT "ENTRRT 
-lEZ UOUS POUR ME 6RTTRE " 

ij» IF ra>HN5 TfiEM LET fi«S=T2 

835 IF THDM5 THEN LET WIS.T1 

e*0 PRINT "UOTRE MEILLEUP. SCORE 
■'; UMSj " POINTS" 

E*5 PRINT "HON MEILUEUR SCORE: 
■; MNS; " POINTS" 

550 pRirrr 

©55 PRINT "UOLiLEZ -UOUS FRIRE UN 
=. RUTRE PRRTIE '■" 

5SO INPUT R« 



1-OTO 17C 



-S»(Q) TMEN GOTO 15 — 



: ■:■ -. l- 



IF 0=B TMEN GOTO 1 

LET 0=0*1 

GOTO 15S0 

IF P=L1 THEN GOTO 

LET S* (Q> ="0" 



1560 

1570 

1SS0 

1590 __ 

L600 GOTO 152 

1700 REN . . .C 

1765 roR i=i 



riEB2?C105C5153OE3Cl 

6030 FOR P = l TO LEN 

OO40 LET X = COOE R* (1 

■5353 LET V-CODE RHP 

■5D6Q POKE 0,16»X*V 

=-■070 LCT = 6.1 

i06D NEXT f 

>5B90 STOP 

73B0 LET LL=6 

"BIB COKE 16S16.LL 

-91S LET CC=-6 

•OSa FOR U=t TO LEN 

7030 LET L*>U*(U) 

7O40 GOSUB 5000 

-050 LET CC=CC*8 

: ( -!; NEXT u 

7070 RETURN 

7OS0 STOP 

"SBB REM PLUS DE lOS 

7518 FOR I-l TO 60 

7515 PRINT RT 1S.B. -*■-. 

7SEM LET R«aINKE>'* 

7530 if R*>--e- mtif p* 

GOTO 7590 
7535 PRINT RT 15.0. "S", 
-54 NEXT I 

'^50 PRINT 
7S60 LETT Ll-0 
7565 FOR I-l TO 20 

7570 print rt i - - ii nnjn 



■ 
524 



_OT 31 iZ .0 

FOR 1=1 TC 33 
NE XT I 

Next - 

PRINT RT 11,0, 



S*S PRINT -J — RI ,L2. ' LETTRC 

352 ~r> Li>Ul TMEN GOTO 600 

T55 IF U1=B TMEN GOTO 70S 
E« SOTO S20 
563 LET L2-6-N 















































































































970 


PRINT 


















































































































rf-34. 


PRINT 


"JE CONNRI 


i " 


V 


" HO 



1740 NEXT I 

1750 LET T2=T2tH 

1760 LET T1«T1-L1 

1770 GOTO 660 

1S00 REM ...TEST O.K... 

1B10 GOTO 6*S 

2000 LET NN=1 

2010 LET B=0 

2020 LET R=0 

2030 PRINT RT fl.BjHM;- ",&*(HN) 

2035 IF NN=500 TMEN GOTO £000 

2040 LET ReR*1 

2045 LET NNnNN+1 

2050 IF INT (fi/38) l2a=R TMEN GOT 

O 2B6B 

2055 GOTO 2030 

2050 LET 8=B*1E> 

2070 IF B=32 TMEN GOTO 3380 

2080 GOTO 2020 

3000 COPY 

3«ae PRINT RT 21,0; "UOULZi -UOUS 

■JHE OUTRE PRGE *? 6 

■3031! INPUT ft* 

304a IF R»o"OUI" TMEN GOTO 4005 

3060 CLS 

3870 GOTO 2010 

4 088 COPY 

4805 CLS 

4.010 GOTO 1000 

5008 LET S*=5*frL* 

5010 POKE 16514, CODE Lt 

5O20 POKE 1651S.CC 

5030 LET P=USR 16517 

6O40 RETURN 

6010 LET Q=16S17 

6020 LET R*3--ED4BS340G53R624.Ci2&0 

i)6r39292911B01E1916BB5&?ECe27C13 

a86F5C5O5E5CD6206ElDlClFlQCC51O2 



7573 PRINT «T 15.0 

75 75 NEXT I 

7560 RETURN 

7590 LET L1 = WL Rt 



36D9 Input 

339B CL5 

3S91 IF R«= 

JO00 SRUE " 

903 PRINT 



.-.- L--- 



PRINT RT 10,6,"DEPUI 



9835 PRINT RT 12,6; "JE CONNRI5 ■ 
; Kt: " MOTS";OT 21 , 0; "EWTRER UN NO 
M6RE ENTRE 8 ET 5008" 
9C40 REM POUR DEBUT RLERTOIRE 
90*5 INPUT NBRE 

9850 LET NBRE = NBREtSH'tl«(U»UAL 
Z*(l TO 2) +URL Z*I4 TO Si ♦URL ZS 
'.7 TO a» 

9060 POKE 16435, INT *NEfiE--256> 
9O70 POKE 16434, NBRE- (INT (NORE • 
256) »256) 
9898 CLS 
9098 GOTO 10O 
990O LET Ri»INK.EYt 
3^3» IF R>c;"" TME»» OCTO 99«e 
9920 PRINT UflL Rf 




"LRNCER L-"ENPEGI5TRL 
RPPUYER 5UR UNE TOU 
- 'ET NEU 



EDITEUR 



B apparaTt dans le coin en bas, a gauche, vous ne pou- 
vez alter plus bas. Vous pouvez utiliser tous les carac- 
teres presents sur le clavier, mais les touches "a" et 
<ENTER> ont un usage specifique. La premiere sert 
de touche de repetition, il suffit de la maintenir enfon- 
^^^^^__^^^^_^__^^_ — ^_^_^^^_ - _^^_ cee juste apres avoir appuye sur une touche qui sera 

alors repetee. Le programme dispose d'un certain 
Apres avoir tape le programme en ayant pris soin de nombre de commandes; chacune de celles-ci doit 
supprimer la ligne 165 si voire appareil ne dispose pas etre precedee de la touche <ENTER> 
des minuscules, tapez RUN comme a I'habitude. Apres Exempie : vous desirez imprimer le texte qui se trouve 



quelques secondes d'initialisation, t'ecran se couvre 
de signes bizarres : appuyez simplement sur la touche 
<ENTER>, puis sur la touche V. Les choses devien- 
nent alors un peu plus claires. Vous voyez dix lignes 
vides pretes a recevoir le debut de votre texte, ainsi 



en memoire : tapez <ENTER> puis L ; branchez votre 
imprimante si ce n'est deja fait, appuyez alors sur une 
touche. et le texte s'imprime. 

Voici la liste des commandes disponibles : <ENTER> L 
vous permet. comme indique ci-dessus. d'editer le 



mante 80 colonnes. <ENTER> V vide la memoire; il 
faut done I'utiliser avec une prudence certaine ! Vous 
pouvez aussi transferer une partie du texte d'un 
endroit a un autre de la "faille". Pour cect. positionnez le 
curseur au debut du paragraphe a transferer, tapez 
<ENTER> D (comme Debut), une marque de debut de 
texte'apparalt alors sur I'ecran ; positionnez ensuite le 
curseur a la fin du paragraphe. tapez <ENTER> F 
(comme Fin) et une marque de fin de texte apparait. 
Enfin, placez le curseur a I'endroit ou vous desirez 
transferer le paragraphe et tapez <ENTER> T (comme 
Transfert). 

Pour supprimer un caractere, vous pouvez soil le rem- 
placer par un espace. soil taper <ENTER> S ; dans ce 
dernier cas. la suite du texte est deplacee d'un carac- 



qu'uncarre clair qui materialises le curseur. Au fur eta texte en memoire, sur I'imprimante. Si vous desirez tere en arriere. Pour inserer des caracteres tapez 



mesure que vous taperezvotretexte.celui-ctsederou- plusieurs exemplaires, utilisez-les autant de fois que 

lera sur I'ecran. Vous drsposez ainsi de 64 lignes de 64 e'est necessaire. <ENTER> M est a utiliser avant I'edi- 

colonnes. Vous pouvez utiliser les 4 fleches pour vous tion sur imprimante ; cette commande permet de fixer 

deplacer dans le texte. et pour le faire derouler. Toute- la marge avec laquelle le texte sera imprime. L'ordina- 

fois si un H apparait dans le coin en haut, a gauche de teur vous demande : NOMBRE DE CARACTERES A 

I'ecran. vous ne pouvez aller plus haut;dememe, si un GAUCHE? Tapez 6 ou 7 si vous possedez une impri- 



<ENTER> In oil n est un chiffre de valeur 1 a 9 repre- 
sentant le nombre de caracteres a inserer. Vous pou- 
vez aussi inserer une ligne en tapant <ENTER> IL. 

Emmanuel FLESSELLES 



ia not 

29 PEH 

«e peu 

43 POKE lew;, S9 PWE l€3«,t39'CU3W 493 

30 CLS'Cdsue leeB'ftER imit rsserbloa 

« VlSJS ?&&■• RUTPES VWSR8LE3 

73 WVX 2339'REJI [Mil OE L r ECt«l 

196 PEK TUSITErEHT 

118 P0KER£,17S 

129 IFPEE>T<14337>.lonoH8 

I3B C'IHKEY»-IFC-"T>€H1W 



J'lHSERTIOH 
CH I'&VX TO ZB947 
E23 P£W> J 
£30 POKE I, J 

1HIT SUPRESSICN 
278 FW 1-28948 1028659 
288 PEROJ 

299 POKE I, J 

300 NEXT r 
338 RETUW 'REM F1M 0£S IMIT BOUT I HE S EM R-^EreiP-"! 

28M PEM IHIT 6E5 '/fifirRBLES 



!<9 IFC-EC09«38e8 Ct««T0II3, 178 COTOl 19 2810 DEFSTR C'C-' '-OEFETR E E-CHRK 13 



138 frrfSttCWF^lOWJTPKXKllOTTCSeO 

168 I?n-«0Pfi-i27HEHl28 

163 !FH>»«P«'fl<63*277l*HR-fi*32aSEIFft>- 

97T*C<K I U T*HR-«-32 

178 POK£fi£,R.R£»fle*l 

iee POKEfln.B mwi 

m jFRE)ise63Tie«e-fle-64' 

IFHE<32I2STHEJ«-«»«' 
COS S99H POEI93M.I39 
U&STrm-fA ■ POKEFE . « 

218 IFRE<lM24TH£>*€'flE'54' 
IFME>HI 7i€Hff.^€-64 ■ 

fXS£fl»1-f»1*64 ■ POKECE. 72 
228 WTrjue 
3W POKE P£,PW.<mi 



2828 D£-I3368'FE-I6»S4 

2839 0EFIHTH'f€-lS424'KE«2367e'»1-J9«72 

2848 &EFIHT ppp»9 

2950 MC-64I-8 J-9K-8 

23*0 HZ-28«?2-FZ-2S«ra.Nr»2K72iH>-32128 

2878 CIM CCC13>'F0P I-l TO 13'P£R0 CCO'NEXT I 

2988 LIt-5TPJMG«S4,' *) 

2898 PETIJRH 

2338 PEN 

2348 as 

2330 P8INTta<3TRUCK64.I31>J 

2353 PPII(T';734,SrPIN0«<64,140) t 
2378 POKE 133«0.135'POKE 13423. 133 P0KEIC?^4. 14 
P0KE1C127. 142 
2303 FOP I'3S TO 47 STR 
2333 PP[lfT?7e9,"C0fmeE, 



518 IF R=31 THEMRE-flE-«4'flri-fln-«4'OOTO208 2583 PPIKT5333, "nPPOE DE Mlpi 



320 IFR-9THEMPE>F£*rRf1^»l*l'C0Tu2B3 

533 IFR^THEMFC-FC-l'flflf»1-lC0TCI233 

349 PE-8E-54 ■ Wt-flH*«4 ■ MT0239 

13?8 B£J1 WIT ROUTIIC IRSEfBLEUR Hi 

1318 PESTOPE'PFFI DE LR PflK 

1828 FCei-2333BT020811 

1838 PEROJ 

1848 POKE I.J 

1838 HE/TI 

1068 PEA IMIT DELR PCHJTIHE HSSEWLEUR HI 

1078 FCRI'298I2TQ2e823 

ieee repcj 

1858 POKEI.J 

;:■-■: KXT1 

1118 PE« IMIT PC/TIME flSSEnBLEUR K3 

1129 FDR 1=25824 TO 29035 

1138 PEFO J 

1140 POKEI.J 

Il» MEXTI 

1169 Kl*28828'K2-2ee23K3-2B031'M«28332 



2610 FPII"?g97, -MB»E CRPL, 

tsan ppri'iiBi3,'*4'j 

2638 GOSUB 3099 'PEU RFIOIRCE DE Ifl HEMOIPE 

2844 RETUBH 

3889 PPIWTfi7?9,i-C'"'C0Sue 3598 

3883 PE-1 

3818 IF O'fi-THEM PHINTf795,CC< 1 )i 'OTIS 5088 

3928 [f C'"V* rHEMPftINT!7Si5.CC(2); 009^5309 

3833 IF Oi-0 - THEM PkIHT8786.CC< j>, VTJJB S089' 

ft»I35 PE-2'- CR» DEB DE 20HE 

3940 IF C-"F" THEN PRIHTlTeS.CC!*); 'OOSUB SW9 

ft-139 =E*2 'Cf» EE FIN DE 20ME 

3838 IF C-T- THEN PAINT979fi*C«3>i-C0S»J8 C588 

3D48 IF D"*L' THEN PPINT878«,CC((!>i 'C03JO 7889'fl'l 

3088 IFC-'I'THENW(IMT?7ei5.CC(8)i 'GOSUB SZBO'RE-l'* 

INSERT I0H 

3898 IF C--S" IHDI PRIMTe7M.C0<3>i'G0S'JB 6388'PEH 

SUPRESSIOH 

3188 IP CW TlOt P9l»T1Tiv,,V.'.lS)->: -WJJ8 6888RE-1 

REM «*« 



31S9 RETIRN 
35C9 POKE RE.RSCC-?-) 
3318 C-ltP£Y% 
3312 IF CO" THEN 3320 
3314 IF JC-1 THEH POU FC.RSCCT"> 
K-9ELSE POKE RE.32-K-I 
351S GOTO 3518 
332C POKE fif. 32 
3538 PETMRH 
5080 REfl RFPR 

3810 POKE 16326. 96 'FTXE1S527, 10? 
3020 X'USMHE) 
5030 PETuRW 

5380 Kn VIDE DE LR "EW3IPE 
3310 P0KE23673.32 
3329 F0KE16326,1MPWE163C7.I89 

::•:■-' X-USRt 28672) 

33*0 COSJfl 3088 
3350 PE-1 
5360 RETUPH 

6809 IF C--£>* THEN POKE H2-I.32' 
M2«m*l ■ ELSEPOKEFZ.32 ■ FZ-Ffl 
£013 Tft-F2-+e.pFJ1 C EST Lfl 
TRILLE OE LA ZONE 
6828 G2-IMKKy236>'Gl"H7-G2t236 
6838 C4-IMT<TR'236>G3>rfl-G4i;3e 
6833 COS'* 50C3 
) SETC89.!)'$£KI27,I)'NEXT! 6048 PEIlWt 

6288 PEU INSERTION O'UM CPPflCTEPE 
6218 POKE 16327, 10?- PCVE 16326,132 
6220 LC-02767-ftfl> 
6238 Re-INT(LG'256)'Rn-LG-<ftBI'236> 
6248 POKE 2S843,RflP0KE 23944, RE 1 

6243 G03UB 3500 

6244 HB-VflL(C)'!F C*'L" THEN MS-64 
6243 FOR I-l TO MB 
6238 X«U3P<327«) 
SZ53 FCiKERn.32POl ESPPCE 
6236 NEXT I 
6268 G0SUB5388 
6278 PETURH 
6308 PEN SUPPESSION 
6319 POKE 16527,18? 
6313 POKE 16526.144 
6328 UX32767-FM) 



6389 RETURN 

6309 PE« 

6318 REM 

6320 IF TR-0 TMEM 6398 

6539 «-IMTtPA-236)G3*F«-«i;W 

6348 FT>:E16526.129'POKE16327,I8? 

6330 P0KEKI.G3PCKEK2,C6 PCKEK3.C3 ■P0KEK4.C4 

6368 X-4JSJKKZ) 

sun GDsueam 

6589 RE-1 

6399 RETUW 

6688 J CW REOLE LES KPRCE3 fl CA>JOC ET A C4N3ITE 



6S05 PPINT864.",' INPUT TWCE K CflUCME. .. .*.na'PP]NI8843.fWi -CfWCIEFE S 



trXS 



6810 P1!'3TPIHG»(M." •) P2»«TRtHCWKl>' 

6813 C05JB 3080 

6829 PRINTOIS.^'K!, 

6823 RETURM 

7999 ' SORTIE EUR L' IrtPRIPWHTE 

7093 G0SU9 7388 

7010 PPIin9786.-RPfiNCHE7 L' IWRIHP1ITE") 

-028 IF INKEY*."TMEN 7928 

7038 LP«»5TRIMG«64.- •) 

7949 FOB 1-28672 TO 327MSTEP 64 

7038 VR-VfWPTPXLPD 

7060 I2*IMKI^256)Il*I-ia236 

7073 n,yc Vfl- 1 . 1 1 ' POKE yfi*2,I2 

7075 IP LF1-U* THE" LFRINT- 'GOTO 7890 

7-07? IS»-PI»*I_P1 

70&0 LPPIHT IS* 

7899 NEXT I 

78?3 GOSlje 7688 

7188 PETURH 

73CO REM PREPfl DEU1 SORTIE IrPRTWITE 

7318 POKEHZ.32'POKEF2.32 

7320 RETURN 

7690 REM FIN UITL Da' IHPPIHJWTE 

7618 F0KEMZ,135'P0K£F2,139 

7628 RETURN 



P038 DflTR 203,127,11 
£810 DflTfl 17.64,60 
UN CflPPCrEPE 8028 MTW 01.128.2 
8339 DflTR 237,176 
8849 DflTR 201 
3043 REtllltliti 



-yi; cfl i. M7PH 

'PEK LC 0E.134: 
PEfl If BC.640 
'PEM 1£>IR 
'B£M RET 



6330 Pe-llfTCL1^236)'flfM.C-<flBl256) 0838 WTB283. 127. 10 

6340 POKE 20853.M-P0KE 28856.BB gg^e DRTR17.1.112 

6338 X-USfttm) 3078 DflTRl,233.13 

6368 POKE 37767,32 8008 0flTO237,l76 

6378 GOSUB3890PE-1 BOW DRTR23I 



BO WTR283,127,10 
10 DRTRI7.I.I12 

29 DRTRI.1.8 

30 DflTR237.17fi 
48 WTP.2P1 
39 D1TFI 205.127,18 
" DflTfl 229,209 
70 DflTfl 19 
08 DflTfl 81. 1.0 
98 DflTfl 237. 164 

8288 DflTfl 281 

0210 DflTfl 283.127,13 

B220 DOTR 229,209 

8238 DflTR 35 

S240 DflTfl 1,1.9 

0230 DflTfl 237,176 

8260 CftTft 281 

9988 DflTfl ■flFFICHflGE DE IA PftGE 

9810 DflTfl "VIM DE Lfl HEHOIflE 

9028 DflTfl 'DEPUT DE ZONE 

9038 DflTfl 'FIN DE ZONE 

9040 mtn -TRflHtfERT DE ZONE 

?O30 DflTfl 'SORTIE SURIMPRIMflMTE 

9968 ORTfl X 

9878 OflTfl -INGEPIIWI 

9908 DflTfl •SUPRE3SI0H 

9099 DflTfl "PURGE C€ GflUCME 

1&809 Dfllfl X,K,X.X.X,X,X,X 




HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS 

NOM: MATERIEL UTILISE: 

PRENOM: CONSOLE: 

ADRESSE: PERIPHERIQUES: 

REGLEMENT JOINT: CHEQUE I CCP 



LE LOGICIELDE LASEMAINE 

lO programmes de jeu pour SHARP MZ 700 



Encore peu connu en France, le 
nouveau SHARP a ete baptise 
MZ 700 II remplace la serie des 
M280. C'est doncun ordinateur 
de table qui a garde son magne- 
tophone integre et son BASIC 
sur cassette, qui a perdu son 
ecran integre pour utiliser le te- 
leviseur familial ou un moniteur 
video et, enfin, qui a gagne en 
possibilites graphiques et sono- 
res: vous avez maintenant la 
couleur et la musique. 
Si Ton ajoute que cette machine 
peut etre tivree avec une table 
tracante quatre couleurs inte- 
gre'e, on se rend compte que le 
constructeur japonais presente 
un redoulable poulain sur un 
marche pourtant bien pourvu. 
Du c6te logiciel, le BASIC tourni 
sur cassette est particuliere- 
ment complet. il digere en outre 
tous les programmes ecrits pour 
MZ80 K et A a la condition tou- 
tefois que ces derniers n'abu- 
sent pas des PEEK et des POKE. 

Lesdix programmes dejeu four- 
nis par SHARP sont presentes 
sous la (orme de deux cassettes 
contenant chacune 3 program- 
mes sur la face A et deux sur la 
face 8. 

Les dix jeux sont programmes 
en langage machine ce qui est 
un gage de rapidite et de perfor- 
mance. Avantage suppfernen- 
taire. il est inutile de charger le 
BASIC Des la mise sous tension 



ou apres un RESET general, 
vous pouvez charger le premier 
programme par L suivl de CR 
puis la louche PLAY du magne- 
tophone. 

Cassette 1 : 

face A: BATTLE MAN 

SUPER PACKMAN 

CIRCUS STAR 
face B : MOVING SEARCHER 

PAINFUL MAN 
Cassette 2: 
face A: MANHUNT 

LAND ESCAPE 

ROUND SHOOT 
face B: SEND1 

SNAKE & SNAKE 

Si certams titres semblent tres 
connus, d'autres sont parfaite- 
ment originaux Regardons lout 
ceci dans le detail: 

BATTLE MAN : 

Ce premier programme est un 
leu de raquetteclassique. le mo- 
de d'emploi est clair : deux 
joueurs de mi-foot, mi-tennis, 
mi-hockey vont s'affronter en 
essayant de marquer le plus vite 
possible 5 buts a I'adversaire. Le 
joueur de droite utilise les 4 fle- 
ches de deplacement du cur- 
seur, tandis que I'autre se 
debrouille au mieux avec les 
touches A, W. D et X. Ce jeu 
pourtant bien colore et bien ani- 
me n'est surement pas le plus 
fascinant et il reste tres classi- 



que voire un peu archaique. Un 
bon point cependant pour son 
excellenle presentation. 

SUPER PACKMAN: 
Le titre suffit a decrire ce jeu qui 
a un enorme succes depuis de 
nombreuses annees. Des cham- 
pionnats sont organises avec 
presque autant de serieux que 
ceux d'echecs ou de bridge. Peu 
de commentaire, la version est 
tres rapide et tres belle. Quand 
on salt que le programme n'uti- 
lise que les caracteres semi- 
graphiques du SHARP, on peut 
se demander s'il est bien utile 
d'avoir des possibilites graphi- 
ques completes souvent plus 
difficiles a mettre en ceuvre et 
beaucoup moins rapides. 

CIRCUS STAR: 

Encore un jeu d'adresse qui se 
veut simple et rapide. Vous te- 
nez un bouclier au-dessus de la 
teteetun jongleur, funambuleet 
sauteur. decole de votre bou- 
clier pour aller attraper des bal- 
lans multicolores gracea un filet 
que vous manipulez avec les 
touches Z et C. Bien entendu, 
cet acrobate redescend et vous 
devez le raJtraper avec les He- 
ches horizontales du clavier. Ce 
n'est pas si facile qu'on le sup- 
pose a premiere vue. 

CIRCUS STAR se situe dans la li- 
gn£e des jeux de raquette et, 



tout comme BATTLE MAN, be- 
neficle d'une excellente presen- 
tation, d'une tres bonne rapidite 
d'ex6culion et dun accompa- 
gnement sonore valable. Ce- 
pendant. comme son predeces- 
seur, il souffre un peu de sa sim- 
plicity. 

MOVING SEACHER: 
Un jeu oil le graphisme ne sert 
qu'a la presentation mais qui 
s'avere passionnant. Vous devez 
attraper de petits S qui bougent 
f renetiquement et obtenir diver- 
ses bonifications en attrapant le 
S ou le L. Mais attention aux 
ALIENS - gros points roses un 
peu patauds - et aux baltes 
bleues virevoltantes, car au 
moindre contact vous serez de- 
truit. Le jeu se deroule en plu- 
sieurs phases de difficulty crois- 
sante. Un tres bon jeu auquel le 
graphisme n'apporterait rien et 
qui risque de tenir en haleine 
petits et grands!!! 

PAINFUL MAN: 

Jeu de labyrinthe et de poursui- 
te. PAINFUL MAN s'inspire de 
loin de PACKMAN avec toute- 
fois des originates importan- 
tes. Le labyrinthe est genere 
al6atoirement; il n'esl done pas 
question d'effectuer un par- 
cours type qui permet de jouer 
24 heures d'affilee sans perdre. 
La poursuite par les ennemis 
n'est pas automatique. et vous 
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TEXAS I. Tl 99 

Fatal ofTI94tt 11 

*'«t toipohbl- o-« p'na Pr- 
Doubt* 'obi* d* :.-.-.-,n 

Po.f* d* m(w*n« d. j. u 7 

Sy>'UM«>rf -ft parol* 6 
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lOGICUlS EDUCAllfS 

MODULES 



Banc d'essai Duriez 
des 20 micro- 



24 pages. Envoi contre 3 tim- 
bres. Utilisez le Bon ci- 
dessous (gratuit au magasm) 



Ordinateurs de pointe 



CASSEtre 

irl Gcid---. I 



Ordlnotaur 

HP75C. 

ModJ* -n*™.™ bk 



PfRIPHfHIOUE HP II 



COMMODORE 64 

Commodore 6* PAL 2790 

64PAI * «h.f(o(»SECAm 3SS0 



lOOt 64 nrttdfV* |«m»»eS.l 640 

>0»TH64|ro»o ut h.| oTO 

CAlCRESUU|*tqu.it*l 2 312 

i J (<fhqv**«| *t0 




■ iBI 



f*l 2170 

Mng»..o 38J 

Tra«*vr4covl*urt . 3250 

COMMODORE VIC 20 

V.,T0i".<,oord.. O i. u - 3.1 Kn... 
NB[UHF[ '5°0 

V,<J0 5«o- 2170 



400 micro-prix-charter 
en direct chez Duriez 



300- - 

500 

500 
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106KIEU 01 IEUX 




Moouiti 


OmMoI 
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HEWIETT PACKARD 

UKUUTRtaS 
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JUDE A 1A PR06UMNUTION 



PROGRAMMES EDUCATIFS 

n K1INIIFI0UIS 

MbrmdwiMiiiiklMiMruj 



SHARP 

PC 1212 

Up,, m aMaCE 122 
PC 1SO0 

Irol-MOMlCt 150 

PC 1500 • C( 150 
€.t.n„o»SKCt I5S 
E.itniior. I6KCE 161 
E.l*ni.c»BKp.ol«g*ab!i 

lni«.la ( .PS232Cporoll< 



PC1W5 
PC12.S 4 CE 125 

CASIO 

F. 703P 

IbwiFo™ mogn»t., f A ? 



"jeco"tnmar7d"a"Dur1eV^li^ \ 

[.II CllalOfUC I .) it n*itr*l I rtctp"on Mf» Notn, Pitnomt, Adinu I 

Uuiif/ "MiciM" (Clltii ir.onirc Rtmbouri<menl) (N*. Rut, Code. ViUr) ; 

(ompi/illfi do 10 micro- moyrnnaal jn tuppWnwnl 

ocdiiuiturt la pkn vtndut <k JO F * 40 F Pal «i 

dir> (JurKi)cofiirr }iimhfci cmballi|f. I 

J'*ut«i It dfoh, li non utiv i^,» « <Uti*int« ill 

a LcO) «lklr(.) tni UU t((L) fail. At f(f»oy« kwiI jou.i "" »«i"H»n . , i m I 

tut ctut p»i( photcxopitc k(i) ippaKlKi) modvlci. ill 

«mi ci**» cUJokxii). Cxieiltt ou ou*r»«o VI 

: ; D< M«lM .hc^liTcJt .... tl ,mp.lU«c. , WJ 

I 1 H '" ■ 

5 rwprt*PortffEiPba*ar*»- 



unn/t i,.| i 

• 310? ',™ ( .l-iit, ([mioiia) i 
...i. {.I,,-!.,..!.! 

■ Swch{«nuM| ' 

■ StMl Id- >.,.,. I'. | J 

. 310* V.. ...i.,|,.^.."-l H 
)m |,t„ .,.,....) 



' 260 

160 

fx 802 1 1 400 

PB 100 6*5 

I*" 1 *! maqtiKt, FA 3 7*5 

( mp ,-, n -,.fPlJ 635 

FP200 3200 

E.h-nion B Ko 623 

Cable K7 v,i 

S*<-tu' 272 

I'dMm* touloun 2470 

tM.Md.,f.i<|„, /<}<„ 4732 

CAbl* Imprmonrn . 405 

CANON 

X0/8KO 21/0 

M'fro-reBK.i , m 

€jf1c rntmmre pcrminona 4 Ko 181 

Itnptimmfo-liMM 4 coiH 1650 

ClM mjonMo .49 
C'niplMM opIHIUD 470 

EPSON 

11X20 5960 

llKhnir ctntatMi . 1 380 

E.1.«»nl6Ka .. 1170 

Mod*n> 1360 



IMPRIMAEMTES 

SxAothaGMOOA 3190 

I-.Aoih.jGP 250 3190 

S.ilotf.oGP700 4490 

Bio*>«>IP27 2500 

B,o.h„ce60 V.IO 

Ixlarhit* If 50 7315 



pouvez partiellemen! la contr6- 
ler par vos emplacements Enfm. 
un certain nombre de bonifica- 
tions sont possibles el ['ensem- 
ble de la partie est sous le 
controle d'un chronometre Un 
jeu somme toute assez inldres- 
sant qui manque cependant 
d'un minimum duplications, le 
mode d'emploi se d6couvrant 
uniquement par la pratique 

MAN HUNT: 

Ce premier programme de la se- 
conde cassette n'a pas grand 
chose pour lui. D'une presenta- 
tion moyenne.il n'est pas d'un in- 
teret Evident, Le labyrinthe dans 
lequel on se promene est deses- 
perementunitormeetleschiens 
verts de poursuite se ruent me- 
chamment sur leur proie. Cer- 
tes, il taut de la dexterite pour se 
faufiler entre ces cerberes. mais 
le jeu demeure tristement repe- 
titif. J'avoue que j'ai eu peur pour 
la suite en pensant que cette 
deuxieme cassette ne valait 
peut-etre pas la premiere. Ras- 
surez-vous. ce WAN HUNT est 
de loin le moms bon du lot et ce 
qui va suivre est beaucoup plus 
interessant 

LAND ESCAPE: 

Encore un jeu qui a fait le bon- 
heur de nombreux limonadiers 
et la fortune de son concepteur. 
Le LAND ESCAPE est tres bien 
fait. Vous vous promenez tout au 
long d'un relief tourment6 et 
vous devez eviter un certain 
nombre d'obslacles. Votre Vites- 
se de base est constante mais 
vous pouvez. soit accelerer soit 
ralentir. avec les Heches hori- 
zontales. Le jeu evolue en com- 
plexite au fur et a mesure de son 
deroulement. Mais il faut une 
belle dexterite pour progresser 
dans ces montagnes. 

ROUND SHOOT: 
Premier jeu de lespace de cette 
serie, ROUND SHOOT est un 
modele du genre. Vous avez 
sous les yeux un radar a courte 
portee et un radar a longue por- 
tee, ainsi qu'un tableau de bord 
indiquant tous les parametres 
utiles sur le temps. I'energie, etc. 
Le but du jeu est de detruire le 
plus de vaisseaux ennemis pos- 
sible sans les heurter. Pour ce 
faire, vous vous dirigez a I'aide 
des 4 (leches difeclionnelles et 
du radar Q longue portee afin de 
vous rapprocher le plus possible 
de I'ennemi. Lorsque les vais- 
seaux adverses entrent dans le 
champ du radar a courte port6e. 
vous devez les detruire a I'aide 
d'une des deux armes dont vous 
disposez: le canon directionnel 
actionn6 par la touche Z ou le 
rayon omnidirectionnel mis en 
ceuvre par C. Ce dernier est cer- 
tes beaucoup plus etficace 
puisqu'il tire simultanement 
dans toutes les directions, mats 
il est egalement beaucoup plus 
gourmand en energie. Si j'ajoute 
que vous avez encore certainos 
possibilites de bonifications el 
que le graphisme el le son sont 



de la m*me facture. A n* faudra 
faiFe qu'un pas poy* comtataf 
que ROUND SHOOT se place 
dans le petoton de tete de ces 
10 programmes 

SEND 1 

Encore un programme derespa- 
ce dont les qualites graphiques 
et sonores sonl excellentes Le 
bruitage style teletype du mode 
oTemploi est particuiierement 
realiste Par contre. le jeu est 
piutdi dasstque Vous devez 
deplacer votre va-sseau hon- 
zontaiemeni avec les fieches de 
gestion du curseur Vous devez 
6viter les tirs ennemis et t i : 
un maximum devaisseau. 
rant avec la bande d'espace- 
ment. SEND 1 demands certes 
une bonne dexterite mais les 
variations du jeu sont mimmes 

SNAKE & SNAKE 
On pourrait presque dire le meil- 
leur pour la fin En effet. ce jeu 
est de tres bon aloi : une presen- 
tation magmfique et un mtftrgt 
certain. Vous £tes une chenille 
dans un labyrinthe parseme 
dembuches. vous pouvez vous 
deplacer dans tous les sens 
pour essayer de detruire d'au- 
tres chenilles La barre d'espa- 
cement vous permet de tirer 
Mais atlention. il y a un mechant 
croque-chenille qui certes va 
moins vile que vous mais qui se 
dirige inexorablement dans 
votre direction. De plus, cetle 
mechante bestiole a des 3llures 
de fantdme car elie traverse les 
murs du labyrinthe et reste in- 
sensible a vos tirs. Les chenilles 
nvales sont particuiierement 
dangereuses egalement car 
elles sont parfots en mesure de 
vous devorer, lorsqu'elles sont 
plus longues que vous et de cou- 
leur rouge. Vous devez en (ail 
luir devant le croque-chenille. 
fuir devant les chenilles rouges. 
tirer sur les chenilles pour les 
raccourcir quelle que soil leur 
couleur et. enfin, vous pouvez 
devorer les chenilles jaunes et 
bleues plus petites que vous 
Tout ceci est un peu complique 
a expliquer mais vraiment pas- 
sionnant. 



Pour conclure sur celto spno de 
10 programmes de jeu, on peut 
dire que 70% sont tres bons ou 
excellents. 20% sont assez mo- 
yens et que J0%. cest-a-direun 
programme, est tres discutable 
L'apprehension ressentie par 
labsencc do graphisme haute 
resolution sur le MZ 700 est par- 
tie en fumee devant la richesse 
extraordinaire? du somigraphis- 
me. A tel point qu'il som'ble qu'il 
soit plus facile de programmer 
un beau jeu avec ce systeme 
(notammcnl en BASIC) qu'avec 
le graphisme haute resolution 
qui est tres friand d'espace m&- 
moire et qui a la Fachausfl ton 
dance de ralentir lexecutlon 
dun programme 
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PETITES ANNONCES 
GRATUITES 



ZX81 : recherche toute person- 
ne posscdant cartouches de 
jeux ou programmes sur 
EPROM. Alex RIMBAUD 50, av. 
Parmentier - 75011 Paris. Tel.: 
700.9750. 

Vends 2 logiciels de jeux pour 
TI99/4 A :ALPINER250F (acha- 
te 365 F). FOOTBALL 200 F 
(achete 285F),lousdeuxenjuin 
83. M. MOLLOT 2. alleo des Pas- 
sereaux - 78260 ACHERES. 

Vends NEW BRAIN (achote le 
23/12/82) + moniteur NEC (23/ 
1 2/82) + magneto + cassettes + 
livres + cordons -t- alimentation, 
le tout 4500 F. ANDRE (38) 
63 56 50. 

Vends K7 jeux contenanl 
tehees, Simulatcur de vol. AWA- 
Rl. POKER, INVADER. GULP? 
BIORYTHMES. BLITZ. STAR- 
TREK, LABYRINTHE. ISOLA, 
JACKPOT. BREAK OUT. PUIS- 
SANCE 4 ET SOLITAIRE Ln K 7 
pour/XB1 200F.IL CROS.ln 
Colombior, ST ■BARTHELEMY ■ 
49800 TRELAZE. 

Recherche PROGRAMMES UTI- 

I IIAIHI ;i pr.ur Il!)')/4A H.K Mil 
K7. Serges PIGUl t n?, rm: <lu 
Bois-l-lardy - 44100 NANTf S 

Vends 2X61 ocl 83 sous aaran 

tie avoc MCV 1 6 K Magndto K 7 

.',.,u\ (|.!r;jii1it.:.ivw. 1 1 -j r . ■■...-'.■■ ;;i ; 
K7 «ux. Valour 2000 I Brada 
1100 F ROULIE J C 799.22.60 
npros 20 h. 



Vends Sinclair ZX 81 + m6moirc 

16K + clavierABS-Hogir:i>'l- SUI 
casseltes et livres Garnntio jus- 
qu'en|uillet84 950 francs Denis 
BESSE 29. avenue Foch - 94120 
Fontenay-sous-Bois T6I bu- 
reau ; 550.32.00. 

Exceptionnel, vends TRS80 
pci (PC1212) jum03 t- interfa- 
ce K 7 (juln 83) F 2 livres de pro- 
grammes, le tout on superbe 
Otat : 600 FDEMOLY. lean Mart 
6 bis. rue dos Moines - 75017 
Paris Tel 228 22.04, 

Vends 1000 I- Ciirtr: intpil.it,.! 
RS232 (1 Korlio parallolo. 1 sor- 
tie scrio) pour TI99/4A jamais 
ulilisco, non cfebnllc-e .1 VER- 
MONT S1, routed* Si-Germain 

78860 ST-NOM LABRETECHE 
Tel ; 46080 20 apn>s 18 h 



Vends ZX81 + 16 K + auto-ro- 
|i> il I clavier spOcial aulocol- 
i.int i :i caasettas de jeux 

(PHANTON. RESC, AS II 
ROIDS) + vingtaino da llfitlnflS 

ii(Mi*. aeation ) i I Ihrre -Piio- 
loz votre ZX8I" + garantio do 

7 mois. Ventlu 1 200 F (iinu super 

affaire I] Fredertc VIQER 7, rue 
Curnonaky r*60l7 Parla W 
270 88.12. 

Poscedanl APPI ! II B1 ORIC I, 
chorchr; astuca (interfa ■ 
dall pou< pasaei programmes 
da faux Indltferemmenl sui run 
ou I'autn 
Cache- 136001 aClotal 



